Sub AddRow()
    Dim LR As Long
    LR = Range("A" & Rows, Count).End(xlUp).Row
    Rows(LR).Copy
    Rows(LR + 1).Insert
End Sub

Sub AddRow()
    Dim LR As Long
    LR = Cells(Rows.Count,1).End(xlUp).Row
    Rows(LR).Copy
    Rows(LR + 1).Insert
End Sub

Sub AddRow()
    Dim LR As Long, _
        Ws As Workseet
    Set Ws = ThisWorkBook.Sheets("SheetName")
    LR = Ws.Range("A" & Ws.Rows.Count).End(xlUp).Row
    Ws.Rows(LR).Copy
    Ws.Rows(LR + 1).Insert
End Sub