用 For…Next 逐列處理 10 筆訂單，計算 Net Sales 並依門檻產生 Status。
訂單資料需自動完成淨銷售額與狀態判斷，避免人工逐列輸入。
| OrderID | Qty | Unit Price | Discount | Net Sales | Status |
|---|---|---|---|---|---|
| O-1001 | 5 | 320 | 5% | 1520 | Review |
| O-1002 | 12 | 45 | 0% | 540 | Review |
| O-1003 | 2 | 1250 | 10% | 2250 | Normal |
| O-1004 | 1 | 5200 | 8% | 4784 | Normal |
| O-1005 | 30 | 18 | 0% | 540 | Review |
| O-1006 | 4 | 410 | 6% | 1541.6 | Review |
| O-1007 | 3 | 1250 | 5% | 3562.5 | Normal |
| O-1008 | 7 | 320 | 4% | 2150.4 | Normal |
| O-1009 | 1 | 5200 | 12% | 4576 | Normal |
| O-1010 | 15 | 45 | 2% | 661.5 | Review |
Net Sales = Qty × Unit Price × (1-Discount)。來源 Status 規則：>=5000 → High；>=2000 → Normal；其餘 Review。VBA 可用 For i = 4 To lastRow 逐列寫回結果。
10 筆 Net Sales 合計 22,126；High 0 筆、Normal 5 筆、Review 5 筆。
迴圈把單筆公式轉成批次流程。來源資料中沒有任何一筆達到 5,000，因此沒有 High。
請依來源 10 筆訂單撰寫 For…Next VBA，逐列計算 Net Sales 並依 5,000／2,000 門檻寫入 Status，不得改動來源數字。
**問題：**O-1004 的 Discount 由 8% 改為 0%，Net Sales 與 Status？