Bom dia, Alex

segue minha contribuição. Veja se ficou como deseja.

Se resolveu, finalize clique no "Joinha e em Resolvido nesta resposta"

Alex

Como você é novato, para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s
Patropi - Moderador

Considerei que a segunda ficha estará a partir da linha 23.

Sub ImprimirV2()
Dim r As Long, k As Long, ws2 As Worksheet
  Set ws2 = Sheets("Ponto")
  r = Cells(Rows.Count, "B").End(xlUp).Row
   For k = 4 To r Step 2
    ws2.Range("B3").Value = Cells(k, 2)
    ws2.Range("I3").Value = Cells(k, 3)
    ws2.Range("B25").Value = Cells(k + 1, 2)
    ws2.Range("I25").Value = Cells(k + 1, 3)
    ws2.PrintPreview
    'ws2.PrintOut
   Next k
End Sub