Ayuda formula excel 2007

Aca et dejo el macro:

Sub distribuir()
Dim t As Long
'4c7569735f50
Selection.EntireColumn.Select
t = Application.WorksheetFunction.CountA(Selection)
If t = 0 Then [a1].Select: Exit Sub
Dim r As Range
Dim c As Integer
Dim f As Integer
c = Selection.Column
f = Selection.Row
Range(Cells(f, 1), Cells(t, c)).Select
For Each r In Range(Range(Cells(f, 1), Cells(t, c)).Address)
If r >= 100 And r < 200 Then r.Offset(0, 1) = r
If r >= 200 And r < 300 Then r.Offset(0, 2) = r
If r >= 300 And r < 400 Then r.Offset(0, 3) = r
If r >= 400 And r < 500 Then r.Offset(0, 4) = r
Next
Set r = Nothing
[a1].Select
End Sub

Funciona asi:

Debes seleccionar cualqueir celda de datos de la columna a distribuir. Luego solo ejecutas el macro ( teclas alt+f8 y ejecutar ""distribuir)

Los resultados estaran segun el modelo indicado por ti en el ejemplo ( sin rotulos esos i).

Gracias por la respuesta ya lo probé y funciona perfectamente....pero si necesito q halla mas columnas como hago es decir que se clasifique a mas del 500 que debo cambiar en la macro?????
Gracias!!!!!!!!!!!!!!!!!!

agrega mas lineas al sub asi

If r >= 500 And r < 600 Then r.Offset(0, 5) = r ' asi para mas de 500 y menos de 600

If r >= 600 And r < 700 Then r.Offset(0, 6) = r ' asi para mas de 600 y menos de 700