AutoFill Help VBA

[Felix_Dragonhammer]

Here's my code:

Sub SKUTrackingSheetUpdate()
Sheets("SKU Tracking Sheet").Select
Range("Y2") = Range("Y2") + 1
ColToRef2 = Range("Y2").Value
ColToRef3 = Range("Z2").Value
    For n = 7 To 183 Step 22
        Cells(n, ColToRef2).Select
        Selection.AutoFill Destination:=Range(Cells(n, ColToRef2), Cells(n, ColToRef3)), Type:=xlFillDefault
    Next n
Cells(249, ColToRef2).Select
Selection.AutoFill Destination:=Range(Cells(249, ColToRef2), Cells(249, ColToRef3)), Type:=xlFillDefault
End Sub

The problem is is that the AutoFill is not AutoFilling. From what I can see, the active cell just cycles through the cells defined by ColToRef's and For n=7 to 183 Step 22.

Any help resolving this would be appreciated!