Sub test()
    On Error Resume Next
    With Rows( 4 )
        Rows( 3 ).Copy .Cells
        .Cells.SpecialCells(xlCellTypeConstants).ClearContents
    End With
End Sub

Sub test()
    Activesheet.ListObjects("Table1").ListRows.Add
End Sub

Sub test()
    'Инструкция On Error перехватывает ошибку в случае 
    'ненахождения свойством SpecialCells констант в копируемой строке
    On Error Resume Next
    
    'Здесь использована сонструкция "Range.Copy(Destination)" 
    'вместо привычной "Range.Copy -> Sheet.Paste(Destination)"
    'или "Range.Copy -> Range.PasteSpecial(Paste, Operation, SkipBlanks, Transpose)"
    'Главное преимущество использованного метода в том,
    'что после копирования он не выбирает диапазона назначения,
    ActiveSheet.Rows( 3 ).Copy ActiveSheet.Rows( 4 )

    'Про свойство SpecialCells достаточно подробно и ясно написано
    'в Справке. Это то же самое, что используется при ручном 
    'выборе меню Правка->Перейти...-> Выделить
    ActiveSheet.Rows( 4 ).SpecialCells(xlCellTypeConstants).ClearContents
End Sub