Application.ScreenUpdating = False
        Dim table As Worksheet
        Dim rw As Integer
        Dim var As Long
        Dim cnt As Integer
        cnt = 0
        Set table = Worksheets("Табель")
        var = Worksheets("Табель").Cells(1620, 1).End(xlUp).Row + 1
        For rw = 1620 To 1 Step -1
                If Worksheets("Источник").Cells(rw, 1) = CDate(Worksheets("Выбор сотрудника").Range("B2")) _
                And Worksheets("Источник").Cells(rw, 4) = CStr(Worksheets("Выбор сотрудника").Range("D2")) _
                Then
                cnt = cnt + 1
                Worksheets("Источник").Rows(rw).Copy
                Worksheets("Табель").Range("A" & var).PasteSpecial (xlPasteAllExceptBorders)
                var = var + 1
                End If
        Next rw
        MsgBox "Скопировано строк: " & cnt & " "
         Application.ScreenUpdating = True