为什么我的自动填充代码在我没有参考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