autofill without the sequential numbers

hello,

i'd like to copy "b1:b3" then autofill till the last row of column "a" without it being sequential on the numbers and fill in the last 2 blank rows of the last data cell of "a", the 1st attachment (columnsample) shows what this code keeps doing:

Sub Step2Add_New_Column()
'
' Step2Add_New_Column Macro
'

'

    Dim lrow As Long
    
    lrow = Cells(Rows.Count, 1).End(xlUp).Row
    
    Range("B1:B3").autofill Destination:=Range("B1:B" & lrow), Type:=xlFillDefault

End Sub

i'd like it to look like the 2nd attachment (columnsample1) i have files that have 3000 lines and i'd like to save time to just run a macro instead of manually copying and pasting. appreciate the time/help in advance!

Lance, please edit your post above and put code tags around that code, as per forum rules. Like so:

Option Explicit

Sub Step2Add_New_Column()
Dim LRow As Long

    LRow = Cells(Rows.Count, 2).End(xlUp).Row
    Range("B1:B3").Copy Destination:=Range("B4:B" & LRow)

End Sub

Try that macro instead.

sorry about that. it ended up doing this (via attachment - columnsampleerror)

Lance, please don't quote whole posts. It's just clutter.

If that takes care of your need, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED.

Sub x()
    Dim nRow As Long

    nRow = Cells(Rows.Count, "A").End(xlUp).Row + 2
    Range("B1:B3").AutoFill Destination:=Range("B1").Resize(nRow), Type:=xlFillCopy
End Sub