Sub Скопировать()
    Dim sh1 As Worksheet, sh2 As Worksheet
    Dim lr1 As Long, lr2 As Long
    Application.ScreenUpdating = False
    Set sh1 = Worksheets("Лист1")
    Set sh2 = Worksheets("Лист2")
    lr1 = sh1.Columns("A:C").Find(What:="*", LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False).Row
    lr2 = sh2.Columns("A:C").Find(What:="*", LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False).Row
    sh1.Range("A4:C" & lr1).Copy sh2.Cells(lr2 + 1, "A")
    sh2.Cells(lr2 + 1, "D").Resize(lr1 - 3).Value = Now
    Application.ScreenUpdating = True
    MsgBox "Готово!", vbInformation
End Sub

Sub Скопировать()
    Dim sh1 As Worksheet, sh2 As Worksheet
    Dim lr1 As Long, lr2 As Long
    Application.ScreenUpdating = False
    Set sh1 = Worksheets("Лист1")
    Set sh2 = Worksheets("Лист2")
    lr1 = sh1.Columns("A:C").Find(What:="*", LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False).Row
    lr2 = sh2.Columns("A:C").Find(What:="*", LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False).Row
    sh2.Cells(lr2 + 1, "A").Resize(lr1 - 3, 3).Value = sh1.Range("A4:C" & lr1).Value
    sh2.Cells(lr2 + 1, "D").Resize(lr1 - 3).Value = Now
    Application.ScreenUpdating = True
    MsgBox "Готово!", vbInformation
End Sub

Sub Скопировать()
    Dim sh1 As Worksheet, sh2 As Worksheet
    Dim lr1 As Long, lr2 As Long
    Application.ScreenUpdating = False
    Set sh1 = Worksheets("Лист1")
    Set sh2 = Worksheets("Лист2")
    lr1 = sh1.Columns("A:C").Find(What:="*", LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False).Row
    lr2 = sh2.Columns("A:C").Find(What:="*", LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False).Row
    sh2.Cells(lr2 + 1, "A").Resize(lr1 - 3, 3).Value = sh1.Range("A4:C" & lr1).Value
    sh2.Cells(lr2 + 1, "D").Resize(lr1 - 3).Value = Now
    Application.ScreenUpdating = True
    MsgBox "Готово!", vbInformation
End Sub