VBA循环自动填充动态范围

一直在执行键盘到头部的激励仪式，试图让这段代码正常工作

它试图做的是从单元格引用（数字）创建一个范围，并在一列上自动填充公式，然后增加行数。这将一直运行到i等于projWeeks

projWeeks = 36
axisRow = 46
axisCol = 5


For i = 0 To projWeeks

    axisRow = 46
    Dim tStart As Range
    Set tStart = outputSht.Cells(axisRow, axisCol)
    Dim tDest As Range
    tAxisCol = axisCol + 1
    Set tDest = outputSht.Cells(axisRow, tAxisCol)

    Selection.AutoFill Destination:=Range(tStart:tDest), Type:=xlFillDefault *///Crashes on Syntax* 


    axisRow = axisRow + 1
    Set tStart = outputSht.Cells(axisRow, axisCol)
    Set tDest = outputSht.Cells(axisRow, tAxisCol)

    Selection.AutoFill Destination:=Range(tStart:tDest), Type:=xlFillDefault

    axisRow = axisRow + 1
    Set tStart = outputSht.Cells(axisRow, axisCol)
    Set tDest = outputSht.Cells(axisRow, tAxisCol)

    Selection.AutoFill Destination:=Range(tStart:tDest), Type:=xlFillDefault

    axisRow = axisRow + 1
    Set tStart = outputSht.Cells(axisRow, axisCol)
    Set tDest = outputSht.Cells(axisRow, tAxisCol)

    Selection.AutoFill Destination:=Range(tStart:tDest), Type:=xlFillDefault

    axisCol = axisCol + 1

Next i

是否有其他方法引用和增加单元格位置以运行此循环？至少可以说，VBA不是我的强项

Selection.AutoFill Destination:=outputSht.Cells(axisRow, axisCol).Resize(1,2), _
                               Type:=xlFillDefault