Insira um modulo no vba e teste esse codigo

Sub Imprimir()

Dim WD, WI As Worksheet
Dim WF As Workbook
Dim Cod As Integer

Application.ScreenUpdating = False

Set WD = Sheets("Dados")
Set WI = Sheets("Impressão")
Set WF = Workbooks("Folha Pagamento")
    
    WD.Select
    WD.Range("A2").Select
    
Do While ActiveCell <> ""

    Cod = ActiveCell

If ActiveCell = Cod Then

Selection.Copy
WI.Select
    WI.Range("B11").Select
    Selection.PasteSpecial _
     Paste:=xlPasteValues, _
        Operation:=xlNone, _
        SkipBlanks:=False, _
         Transpose:=False
                                    
      Application.CutCopyMode = False
    
    ActiveWindow.SelectedSheets.PrintOut _
                              Copies:=1, _
                          Collate:=True, _
                IgnorePrintAreas:=False
        WD.Select
           ActiveCell.Offset(1, 0).Select
    
End If


Loop

WD.Range("A2").Select
WI.Select
WI.Range("B11") = ""

Application.ScreenUpdating = True

WF.Save


End Sub

Não esquece de configurar sua pagina que sera impressa.