Incrémenter valeurs dans macro excel (VBA)

Bonjour à tous,

Je suis un total newbie en VBA et je cherche de l'aide pour réaliser une manip simple:

j'ai un fichier pdf qui comporte 3 colonnes et en faisant un copier-coller dans excel, tout se retrouve sous une seul colonne:

pdf:
A1 B1 C1
A2 B2 C2...

Excel:
A1
B1
C1
A2
B2
C2

Je voudrais donc remettre en forme cette feuille excel.
J'ai fais une macro:

Sub Macro4()
'
' Macro4 Macro
'

'
Range("A2").Select
Selection.Cut
Range("B1").Select
ActiveSheet.Paste
Range("A3").Select
Selection.Cut
Range("C1").Select
ActiveSheet.Paste
Rows("2:3").Select
Selection.Delete Shift:=xlUp
End Sub

Comment fait-on pour incrémenter les cellules à la fin de la macro ci-dessus ? (A2 devient A3, B1 devient B2... et que la macro s'arrête lorsqu'il n'y a plus de valeurs?

Merci pour votre aide !

Rege