Boa tarde!!!

Veja se assim vai dar certo...

Sub Macro4()
'
' Macro4 Macro
'
' Atalho do teclado: Ctrl+j
'
    x = 0
    Do
        x = x + 1
        If x > 500 Then
            Exit Do
        End If
        Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        Selection.Cut
        ActiveWindow.SmallScroll Down:=24
        ActiveCell.Offset(30, -4).Range("A1").Select
        ActiveSheet.Paste
        ActiveCell.Offset(0, 4).Range("A1").Select
    Loop
End Sub

Lostruler
uma outra alternativa para um loop e utilizar For..next

For i=1 to 500
seu codigo
next
Uma duvida, vc sabe me dizer o que é pretendido com a linha

ActiveCell.Offset(30, -4).Range("A1").Select

entendo que de "A1" volte 4 colunas e avance 30 linhas, só que de "A" não dá para voltar

Boa tarde,

Outra forma de fazer:

Sub lsLoop()
    Dim lContador As Integer

    lContador = 1

    While lContador <=500 
        Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        Selection.Cut
        ActiveWindow.SmallScroll Down:=24
        ActiveCell.Offset(30, -4).Range("A1").Select
        ActiveSheet.Paste
        ActiveCell.Offset(0, 4).Range("A1").Select
    Wend
End Sub

Abraço

Marcos Rieper

Orra...

Respostas fantásticas!

Muito Obrigado pessoal! Loop pra tudo agora! hahhaha

abs