将字符串合并到范围（Excel VBA）

Question

我正在使用代码让用户输入一年，然后excel会连续找到该用户，然后在该列中自动填充公式。我已经设法能够获得输入和列方面，但我正在努力将我的刺痛纳入范围。请帮忙！

以下代码。

Sub Copy_formula()
    NewPageName = InputBox("Enter in Year")

    Dim rFind As Range

    Sheets("data_calc").Select

    With Range("A2:AH2")
        Set rFind = .Find(What:=NewPageName, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
        If Not rFind Is Nothing Then
            MsgBox rFind.Column
        End If

    End With

    Selection.AutoFill Destination:=Range(Cells(3, "rFind"), Cells(2393, "rFind"))
    Range(Cells(3, "rFind"), Cells(2393, "rFind")).Select
End Sub