Guru do Excel e Power BI

Pessoal, preciso de uma ajuda.

Não estou conseguindo colocar duas fichas de entrega de cestas básicas em uma única página com dois indivíduos diferentes.

Alguém me ajuda?

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

Código: Selecionar todos

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

Guru do Excel e Power BI

Ajuda Macro VBA Excel

Ajuda Macro VBA Excel

Re: Ajuda Macro VBA Excel