inserting a blank row

Maybe...

Sub Macro1()
    Dim LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Rows(LR - 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub