Insert Row and fill series from one column only

[AJZLindsay93]

Hi All,

I am trying to insert a button in my Excell sheet which adds a new row while filling the series in column A
E.g

F1
F2
F3
F4

I am struggling to write a code which can inset a row,copy the format (border lines) and fill the series in column A

I am a first time poster so apologies if I have not made myself clear enough, I thank you in advance for your help

Cheers

 

[John_w]

For things like this I usually record a macro to get the correct syntax and edit it to make it more general. This inserts a row at the row of the active cell and fills down column A.

Public Sub Insert_Row_Fill_ColumnA()

    With ActiveCell
        .EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Cells(.Row - 2, "A").AutoFill Destination:=Range(Cells(.Row - 2, "A"), Cells(.Row - 1, "A")), Type:=xlFillDefault
    End With
    
End Sub

 

[AJZLindsay93]

Hi John,

Thanks for your reply, the code work great except the formatting (Borders) do not fill.

 

[John_w]

It works for me - all formatting, including borders.