VBA代码可自动填充可变数量的列

Question

我是使用VBA的新手，我了解如何自动填充预定义数量的列/行，但是，我希望用户能够在单元格中输入数字，并从静态列/开始行，代码将自动填充用户想要的任何列（在这种情况下，员工将工作多少个薪酬期。）这就是我到目前为止的内容。

Option Explicit
Sub AutoFill_Test()
'A1 here being where the total number of payperiods are found

Range("A1").AutoFill Destination:=Range("A2:D2"), Type:=xlFillCopy

End Sub

我将如何修改它以获得所需的结果？ 非常感谢，