Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tbl         As ListObject: Set tbl = ListObjects("Расчет")
    Dim tbl2        As ListObject: Set tbl2 = ThisWorkbook.Worksheets("ЗАКЛЮЧЕНИЕ").ListObjects("Заключение")
    Application.ScreenUpdating = False

    If Not Intersect(Target, tbl.DataBodyRange) Is Nothing Then
        Dim tbl1RowCount As Long: tbl1RowCount = tbl.ListRows.Count
        Dim tbl2RowCount As Long: tbl2RowCount = tbl2.ListRows.Count

        If tbl2RowCount <> tbl1RowCount Then

            If tbl2RowCount < tbl1RowCount Then
                tbl2.ListRows.Add tbl1RowCount - tbl2RowCount
            Else
                tbl2.ListRows(tbl1RowCount + 1).Delete
            End If

        End If

        tbl2.DataBodyRange.Resize(tbl1RowCount, tbl2.ListColumns.Count).Value = tbl.DataBodyRange.Value
        tbl2.ListColumns("Наименьшее значение для отбраковки").DataBodyRange.FormulaR1C1 = "=INDEX(В35!R16C3:R100C3, ROW(), COLUMN())"
    End If

    Application.ScreenUpdating = True
End Sub

tbl2.ListColumns("Наименьшее значение для отбраковки").DataBodyRange.FormulaR1C1 = "=INDEX(В35!R16C3:R100C3, ROW(), COLUMN())"

Option Explicit
Private Sub Worksheet_Activate()
Dim iArr As Variant
With ActiveSheet
If Not .ListObjects(1).DataBodyRange Is Nothing Then .ListObjects(1).DataBodyRange.Delete
iArr = ActiveWorkbook.Sheets("В35").ListObjects(1).DataBodyRange
Call ArToLo(iArr, .ListObjects(1))
End With
End Sub
Private Sub ArToLo(ByRef mArr As Variant, ByVal mLO As ListObject) '
mLO.AutoFilter.ShowAllData
mLO.Parent.Cells(mLO.Range.Row + mLO.ListRows.Count + 1, mLO.Range.Column).Resize(UBound(mArr, 1), UBound(mArr, 2)) = mArr
End Sub

If Not .ListObjects(1).DataBodyRange Is Nothing Then .ListObjects(1).DataBodyRange.Delete

mLO.AutoFilter.ShowAllData

Option Explicit
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim iArr As Variant
Dim iRow As Long
iArr = ActiveWorkbook.Sheets("Â35").ListObjects(1).DataBodyRange
With ActiveSheet
    If .ListObjects(1).Range.Row = 50 And UBound(iArr, 1) <= 86 - 51 Then 'proverka polozeniya tab i strok tab
        If Not .ListObjects(1).DataBodyRange Is Nothing Then
            For iRow = 1 To ListObjects(1).Range.Rows.Count - 2
            .Rows(86).Insert 'stroka pered oformleniem
            Next iRow
            .ListObjects(1).DataBodyRange.Delete
        End If
    Else
        MsgBox ("BEDA !")
        Application.ScreenUpdating = True
        Exit Sub
    End If
        '
Call ArToLo(iArr, .ListObjects(1))
End With
Application.ScreenUpdating = True
End Sub
Private Sub ArToLo(ByRef mArr As Variant, ByVal mLO As ListObject) '
'mLO.AutoFilter.ShowAllData
mLO.Parent.Cells(mLO.Range.Row + mLO.ListRows.Count + 1, mLO.Range.Column).Resize(UBound(mArr, 1), UBound(mArr, 2)) = mArr
End Sub