Slugman disse:Na verdade eu coloquei a visualização só pra saber se é assim msm...esqueci de falar que precisa trocar...
Abre a planilha, aperta Alt + F11. Clica em Modulo 1. Tem uma linha verde no final, é só apagar o ' e tbm apagar a linha de cima. Ficará assim:
For Each cell In ws1.Range("B4:B" & r)
ws2.Range("B3").Value = cell
ws2.Range("I3").Value = cell.Offset(, 1)
ws2.PrintOut
Next
Saberia me informar se tem alguma maneira de imprimir toda a lista (num PDF, por exemplo), e não de um em um?