Option Explicit

Sub abc_xyz()
    Dim rws&, tbl
    Dim dtbdrng As Object
    
    With Sheets("Export")
        On Error Resume Next
            Set dtbdrng = .ListObjects.Item("Table3").DataBodyRange
        On Error GoTo 0
        If dtbdrng Is Nothing Then MsgBox "Net dannykh": Exit Sub
        tbl = dtbdrng.Value
        Set dtbdrng = Nothing
    End With
    
    'Variant I s "DataBodyRange" i "ListRows"
    With Sheets("Import")
        With .ListObjects.Item("Table4")
            On Error Resume Next
                Set dtbdrng = .DataBodyRange
            On Error GoTo 0
            If dtbdrng Is Nothing Then rws = 2 Else rws = .ListRows.Count + 2
            .Range.Cells(rws, 1).Resize(UBound(tbl, 1), UBound(tbl, 2)).Value = tbl
            tbl = Empty
            Set dtbdrng = Nothing
        End With
    End With
    
    'Variant II tol'ko s "ListRows"
    With Sheets("Import")
        With .ListObjects.Item("Table4")
            rws = .ListRows.Count + 2
            .Range.Cells(rws, 1).Resize(UBound(tbl, 1), UBound(tbl, 2)).Value = tbl
            tbl = Empty
        End With
    End With
    
    'Variant III - kod kollegi "buchlotnik"
    With Sheets("Import")
        With .ListObjects.Item("Table4")
            rws = .ListRows.Count
            If rws = 0 Then
                Sheets("Export").Range("Table3").Copy .Parent.Range("Table4[q]")
            Else
                .Range.Cells(rws + 2, 1).Resize(UBound(tbl, 1), UBound(tbl, 2)).Value = tbl
            End If
            tbl = Empty
        End With
    End With
End Sub

Sub copyTab3()
Dim LO1 As ListObject
Dim LO2 As ListObject

Set LO1 = Sheets("Export").ListObjects("Таблица3")
Set LO2 = Sheets("Import").ListObjects("Таблица4")
LO1.DataBodyRange.Copy
If LO2.DataBodyRange Is Nothing Then
    Sheets("Import").Cells(2, 1).PasteSpecial xlPasteValues
Else
    Sheets("Import").Cells(LO1.DataBodyRange.Rows.Count + 2, 1).PasteSpecial xlPasteValues
End If

End Sub

Sub tablecopy()
    lr = Cells(Rows.Count, 2).End(xlUp).Row
    arr = Range("B3:G" & lr).Value
    With [РВ].ListObject
        If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
    End With
    Sheets("Overtime").[B3].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub