Macro que me elimine las filas asta donde encuentre datos.

Prueba el siguiente código, si tus datos esta macro borra las filas a partir de la 15 de la columna A, no importa cuantas filas tenga, 20,30, 1 0 mil la macro se adapta a la información.

Sub borrar()
Set datos = Range("a14").CurrentRegion

With datos
.Select
filas = .Rows.Count: Columnas = .Columns.Count
.Rows(2).Resize(filas - 1, 1).Clear
End With

end sub

me marco error 

Sub borrar()

Set datos = Range("a14").CurrentRegion

With datos
.Select
filas = .Rows.Count: Columnas = .Columns.Count
.Rows(2).Resize(filas - 1, 1).Clear
End With

End Sub

¿Qué numero de error te marca?, ¿Y cuántas filas tienes actualmente?, ¿Puedes poner una pantalla del error?, ¿Y desde que fila comienzan tus datos?

La info comienta de la fila a:13

Yo quiero que borre de a:14 asta el ultimo dato de esa columna,

Pero digamos si en a:20 hay datos

Y a:21 esta en blanco que elimine de a:14 a A20

Ya que en A:22 tendré otro tipo de datos.

.

Range("a14:a" & Range("a" & ActiveSheet.Rows.Count).End(xlUp).Row).EntiRerow.Delete

Me funciono Bien pero, 

me elimino todas la filas hacia abajo..

y lo que quiero es que me elimine asta la ultima que tenga datos... 

ejemplo mis datos inician/ termnian en A13:a20

a:21 esta vacia pero  A:22  hay datos.. 

y yo quiero que elimine de a:14 asta a:20..

Gracias de anteano..