Tbl1.ListRows(Tbl1.ListRows.Count - 1).Range.PasteSpecial Paste:=xlPasteValues

Private Sub CommandButton1_Click()
    If ComboBox1.ListIndex = -1 Then Exit Sub
    Dim res(), pz&
    Application.ScreenUpdating = False
    признак = ComboBox1.Value
    Set Tbl1 = Me.ListObjects(1)
    Set Tbl2 = ThisWorkbook.Worksheets("Шаблоны").ListObjects(1)
    pz = 0
    dx = Tbl2.DataBodyRange
    Col = Tbl2.ListColumns("признак").Index
    ReDim res(1 To UBound(dx), 1 To UBound(dx, 2))
    For i = 1 To UBound(dx)
        If dx(i, Col) = признак Then
            pz = pz + 1
            For n = 1 To UBound(dx, 2)
                res(pz, n) = dx(i, n)
            Next
        End If
    Next
    If pz > 0 Then
    Tbl1.ListRows(Tbl1.ListRows.Count).Range.Cells(1, 1).Offset(1, 0).Resize(pz, UBound(res, 2)) = res
   End If
    Application.ScreenUpdating = True
End Sub