爲什麼我的自動填充代碼在我沒有參考VBA的單元中顯示＃N/A？

Question

昨天我問了一個類似的問題，我遇到了另一個問題。這裏是我的代碼（我宣佈我的工作表）：

Dim lrp As Long 'last row for pricing worksheet 
Dim lrf As Long 'last row for forecasting worksheet 

lrp = Pricing.Range("A3", Pricing.Range("A" & Rows.Count)).End(xlUp).Row 
lrf = Forecast.Range("A6", Forecast.Range("A" & Rows.Count)).End(xlUp).Row 

'Pricing Worksheet 
Pricing.Range("B3:AR3").autofill Destination:=Pricing.Range("B3:AR" & lrp) 

'Forecasting Worksheet 
Forecast.Range("B6:HO6").autofill Destination:=Forecast.Range("B6:HO" & lrf) 

如果我們採取例如定價表，爲什麼我用的原因（「B3：AR3」）是因爲我有公式在所有這些細胞我想複製到最後一行（lrp）。此代碼會自動填充所有內容，但它也會將公式添加到其上方的單元格中。因此，現在B2例如在它應該是我的標題時有一個公式「＃N/A」。如何從第3行（從B列到AR）向下自動填充公式，直到最後一行，而不將其包含在標題中。

感謝您的幫助。對於VBA還是新的。

Answer 1

變化：

lrp = Pricing.Range("A3", Pricing.Range("A" & Rows.Count)).End(xlUp).Row 
lrf = Forecast.Range("A6", Forecast.Range("A" & Rows.Count)).End(xlUp).Row 

到

lrp = Pricing.Range("A" & Rows.Count).End(xlUp).Row 
lrf = Forecast.Range("A" & Rows.Count).End(xlUp).Row