Range Autofill

Hej Eksperter!

Har problemer med nedenstående. Får en fejlmelding ved Autofill metoden.. Jeg kommer ikke rigtigt videre med den. Er der nogen der har tid til at hjælpe?




i = 3
j = Sheets("Data").Range("A65000").End(xlUp).Row 'determine number of rows


For l = i To j
    If Cells(i, 1).Value <> Cells(i + 1, 1).Value Then

        Rows(i + 1 & ":" & i + 247).Select
            Selection.Insert Shift:=xlDown
   
        Range(Cells(i, 1), Cells(i, 4)).Select
            Selection.AutoFill Destination:=Range(Cells(i + 247, 1), Cells(i + 247, 4)), Type:=xlFillDefault

   
i = i + 247
End If
i = i + 1

Next