Flexible address for autofill

[Paul_Hossler]

Your macro was a little too complicated for me

This uses data in col A (say A1:A10) then puts 1 in B1 and 2 in B2 and then autofills down to B1:B10 with 1,2,3,... 10

Option Explicit

Sub FillCells()
    Dim r1 As Range, r2 As Range

    Set r1 = Range("A1")
    Set r2 = r1.End(xlDown)
    
    Set r1 = r1.Offset(0, 1)
    Set r2 = r2.Offset(0, 1)
    
    r1.Value = 1
    r1.Offset(1, 0).Value = 2
    
    Range(r1, r1.Offset(1, 0)).AutoFill Destination:=Range(r1, r2)
End Sub