Se la colonna dei dati è la A
Qualcosa di simile
__________________________
Sub Macro1()
'
' Macro1 Macro
'

'
Range("A1:A100").Select
Selection.Cut
Range("B1").Select
ActiveSheet.Paste
Range("A101:A200").Select
Selection.Cut
Range("C1").Select
ActiveSheet.Paste
Range("A201:A300").Select
Selection.Cut
Range("D1").Select
ActiveSheet.Paste
End Sub
etc ete etc

p.s.
per scriverlo in automatico lo script non sono riuscito a fare la sequenza delle lettere dell'alfabeto. Cioè:
a
b
c
d
se trascino
non continua con a-b-c-d-e -f -g - etc etc ma ripete
a
b
c
d
a
b
c
d