Ordenar base de datos

Buenas.
He estando buscando macros ejemplo para ordenar una base de datos.

La base esta compuesta por columnas de identificacion en la cual la
primera columna son las referencias, (cada dato tiene especificada una
referencia).

Las referencias pueden in del 1 al infinito, y estan ordenadas en las
columnas A1,A2,A3.

Al paso del tiempo, las referencias quedan vacias (eliminacion de datos
por fin de validez) y entonces ocurre que:

Desde la A1 a la A5 estan las siguientes referencias 1, 2, 4, 6, 8.

Me gustaria que se ordenase y lo dejase de la siguiente forma:

A1=1, A2=2, A3=Vacio, A4=4, A5=Vacio, A6=6, A7=7, A8=8

Os agradeceria alguna informacion para generar una macro.

Gracias

Prueba con:

Sub inserta()
Dim celda As Range
For Each celda In Range("A:A")
If celda.Value = "" Then Exit Sub
If celda.Value > celda.Row Then celda.EntireRow.Insert
Next celda
End Sub

Saludos desde Tenerife (España).
*******************************************
"Masters" escribió en el mensaje
news:
> Buenas.
> He estando buscando macros ejemplo para ordenar una base de datos.
>
> La base esta compuesta por columnas de identificacion en la cual la
> primera columna son las referencias, (cada dato tiene especificada una
> referencia).
>
> Las referencias pueden in del 1 al infinito, y estan ordenadas en las
> columnas A1,A2,A3.
>
> Al paso del tiempo, las referencias quedan vacias (eliminacion de datos
> por fin de validez) y entonces ocurre que:
>
> Desde la A1 a la A5 estan las siguientes referencias 1, 2, 4, 6, 8.
>
> Me gustaria que se ordenase y lo dejase de la siguiente forma:
>
> A1=1, A2=2, A3=Vacio, A4=4, A5=Vacio, A6=6, A7=7, A8=8
>
> Os agradeceria alguna informacion para generar una macro.
>
> Gracias
>