Option Explicit

Sub tablitsy()
Dim stroky As Long
Dim tbl
Dim objList As Worksheet

    For Each objList In ThisWorkbook.Worksheets
        If objList.Name <> "Svodnaya" Then
            tbl = objList.ListObjects.Item(1).DataBodyRange.Value
            With Sheets("Svodnaya").ListObjects.Item(1)
                stroky = .Range.Rows.Count
                If stroky > 2 Then stroky = stroky + 1
                'ili
                'On Error Resume Next
                '    stroky = .DataBodyRange.Rows.Count
                '    If Err.Number = 0 Then stroky = stroky + 2 Else stroky = 2
                'On Error GoTo 0
                .Range.Cells(stroky, 1).Resize(UBound(tbl, 1), UBound(tbl, 2)).Value = tbl
                'ili
                '.Range(stroky, 1).Resize(UBound(tbl, 1), UBound(tbl, 2)).Value = tbl
            End With
        End If
    Next
End Sub