Sub DrukNariad()
Dim x&, arr(), number$, rr As Range
'Dim i As Long, nRow As Long
         x = "168"
         Set sh1 = Sheets("Список1")
         Set sh2 = Sheets("Шаблон")
         nRow = ActiveSheet.Columns(1).End(xlDown).Row
         For i = 2 To nRow
             If sh1.Cells(i, 1) = x Then
                 sh2.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 3).Value = sh1.Cells(i, 1).Resize(, 3).Value
             End If
     Next i
End Sub

Private Sub copy_rows(num)
     Dim b As Boolean
     Dim Список1 As ListObject: Set Список1 = Me.ListObjects("Список1")
     Dim Шаблон As ListObject: Set Шаблон = Parent.Sheets("Шаблон").ListObjects("Шаблон")
rr: If num & "" <> num Or num = "" Then
         If MsgBox("номер не введений, повторити введення?", 36) = 6 Then
             num = Application.InputBox("Введіть номер"): GoTo rr
         Else: Exit Sub
         End If
     ElseIf Список1.ListColumns(1).Range.Find(num, , , 1) Is Nothing Then
         If MsgBox("номер не знайдений, повторити введення?", 36) = 6 Then
             num = Application.InputBox("Введіть номер"): GoTo rr
         Else: Exit Sub
         End If
     End If
     Application.ScreenUpdating = 0: Application.EnableEvents = 0
     If Not Шаблон.DataBodyRange Is Nothing Then Шаблон.DataBodyRange.Delete
     Список1.Range.AutoFilter Field:=1, Criteria1:=num
     Список1.DataBodyRange.Offset(, 1).Resize(, 3).SpecialCells(12).Copy
     Шаблон.HeaderRowRange(2, 2).PasteSpecial xlPasteValues
     Список1.Range.AutoFilter
     Шаблон.Parent.Activate: Шаблон.HeaderRowRange(1).Activate
     Set Список1 = Nothing: Set Шаблон = Nothing
     Application.ScreenUpdating = 1: Application.EnableEvents = 1
End Sub
Private Sub test()
     copy_rows Application.InputBox("Введіть номер")
End Sub