如何基于VBA中的另一列自动填充？

我正在尝试根据a列中的值数自动填充范围。以下是我的代码：

Dim Pricing As Worksheet
Dim lrp As Long

lrp = Pricing.Range("A3" & Pricing.Rows.Count).End(xlUp).Row
Pricing.Range("B3:AR3").AutoFill Destination:=Pricing.Range("B3:AR" & lrp)

定价工作表数据从第3列开始，从B列开始，一直到AR。当我运行此代码时，不会出现错误。没有自动填充的数据

---

我需要根据相邻列（A列）自动填充范围。你知道如何做到这一点吗？

第3行有公式吗？你在某处定义定价吗？删除“A3”中的3我定义了定价，B3到AR3中有一个公式我想@pokemon_Man已经搞定了。非常感谢大家。我为什么要拿出3号？