Resolvido com: Dim paginatual As String paginatual = "0" ordem = 1 For contador = 5 To final paginatual = wksDest&...

Disponibilize um arquivo de exemplo de como deve funcionar Segue arquivos em anexo.

Segue código que estou usando: With wksDest final = .Cells(.Rows.Count, "D").End(xlUp).Row End With Di...