自动填充右侧索引与列变体

Question

下面的代码每隔7行应用一个公式，我希望它自动填充直到最后一列-1（因为最后一列有一个SUM）。

Sub test5()

'Prv. Cheg

Dim ShtPlan     As Worksheet
Dim ActSht      As Worksheet
Dim lastRow     As Long
Dim sheetName   As String
Dim lookupFrom  As String
Dim myRange     As String
Dim myRange2    As String
Dim i           As Long


Set ActSht = Sheets("Plan1")
lastRow = ActSht.Cells(ActSht.Rows.Count, 2).End(xlUp).Row ' Checks last row with data

sheetName = 'mysheet
Set ShtPlan = Sheets("Plan1")

myRange = "'" & sheetName & "'!$A:$P"
myRange2 = "'" & sheetName & "'!$A:$A"

For i = 5 To lastRow Step 7
    lookupFrom = ActSht.Cells(i - 3, 1).Address
    Cells(i, 3).Formula = "=INDEX(" & myRange & "," & "MATCH" & "(" & lookupFrom & "," & myRange2 & "," & "0)+3" & "," & "COLUMN(A1)+3)"
'The formula COLUMN (A1) changes the result accordingly.

Next i

End Sub