Boa tarde!!

Ao menos poste seu arquivo modelo, para que o pessoal possa ajuda-lo!

Att

Boa tarde caro colega alexandrevba.

Desculpe a minha falha.
Com a planilha fica mais fácil entender a necessidade.
Muito obrigado pelo ajuda.

Abraços.

Bom dia!!

Eu acho que eu não entendi o seu problema.

Como em seu arquivo já tem um intervalo definido, ao ajustar uma unica página 60 registros todas as outras automaticamente, ajustam se para 60 registros, totalizando 44 páginas.

Att

Bom dia alexandrevba

Então quanto a quebra das páginas entendo que dá pra fazer, porém necessito e deixar as informações em ordem númerica.
pág 1 do número 800001 a 800030 na coluna 1 e na coluna 2 800031 a 800060.
Será que deu pra entender??
No momento esta tudo na coluna 1 tenho que dividir tudo 2 colunas de 30 por página.
Essa tarefa da divisão que estou tentando fazer de um jeito mas fácil eficiente.

Desde já agradeço a atenção caro colega.
Abraços.

Boa tarde alexandrevba e todos colegas deste fórum.

Fiz um plan com exemplo de como devo dividir as informações da planilha para impressão.

Desde já agradeço a ajuda e compreensão de todos.

abraços.

Boa noite!!
Seria isso......

Sub AleVBA_10008()
    With Range("A" & Rows.Count).End(xlUp)
        Range(Cells(.Row / 2 + 1, 1), .Cells).Cut Range("C2")
    End With
End Sub

Att

Boa noite caro colega alexandrevba
Feliz natal!!!
Então é quase isso que necessito.
Preciso que fique em duas colunas porém em ordem númerica.
pág 1 do número 800001 a 800030 na coluna 1 800031 a 800060 na coluna 2
e assim sucessivamente.

Desculpa o incomo e agradeço desde já a sua colaboração mestre alexandrevba

Abraços.

Bom dia!!

Veja se é isso...

Sub AleVBA_10008()
    Columns(1).Sort Columns(1), xlAscending
    With Range("A" & Rows.Count).End(xlUp)
        Range(Cells(.Row / 2 + 1, 1), .Cells).Cut Range("C2")
    End With
    
End Sub

Att

Ola alexandrevba bom dia.

Desculpe caro colega mas não é bem assim que necessito.
Acho que minha explicação esta um pouco confusa.
Preciso deixar tipo modelo abaixo fazendo desta forma com as 2660 células em ordem númerica sequencial.

800001 800031
800002 800032
800003 800033
800004 800034
800005 800035
800006 800036
800007 800037
800008 800038
800009 800039
800010 800040
800011 800041
800012 800042
800013 800043
800014 800044
800015 800045
800016 800046
800017 800047
800018 800048
800019 800049
800020 800050
800021 800051
800022 800052
800023 800053
800024 800054
800025 800055
800026 800056
800027 800057
800028 800058
800029 800059
800030 800060

Boa noite!!

Tente....
Inicie de A1

Sub AleVBA_10008_III()
    Dim i As Long, n As Long
    Const InterVal As Long = 30
    For i = InterVal + 1 To Range("A" & Rows.Count).End(xlUp).Row Step InterVal * 2
        Cells(i, 1).Resize(InterVal).Cut Cells(i - InterVal, 3)
    Next
    Columns("A").SpecialCells(4).EntireRow.Delete
End Sub

Bom dia mestre alexandrevba.

É isso mesmo que eu necessito.
Sua ajuda como sempre muito útil.
Sem palavras para expressar minha gratidão.
Muito obrigado!!

Abraços

Bom dia!!

Eu fico feliz em ajudar!

Até próxima

Att