Insert new row at bottom of data range

Hi,

If there is nothing below your range then

Sub CopyRowDeleteCells()
    Dim rDelete As Range, lRow As Long
    lRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("A" & lRow).EntireRow.Copy Destination:=Range("A" & lRow + 1)
    Set rDelete = Application.Union(Cells(lRow + 1, "A"), Cells(lRow + 1, "B"), Cells(lRow + 1, "D"), Cells(lRow + 1, "G"))
    rDelete.ClearContents

End Sub