Factura en Excel

[Pablus00]

Estoy aprendiendo mientras pruebo con VB para hacer que un macro junte todos los datos y estoy probando con este:

Private Sub CommandButton1_Click()
Range("B4").Select
contador = 0
Do While ActiveCell = Empty Or contador > 10
ActiveCell.Delete
ActiveCell.Offset(1, 0).Select
contador = contador + 1
Loop

Lo ideal seria que en vez de borrar la celda de abajo, que busque la que tiene datos y luego la copie debajo de la celda que si lo tiene, pero excede lo que aprendi.

Lo que me ocurre ahora es que no puedo frenar el loop, no se detiene cuando llega a 10 como deberia. ( o deberia detenerse en determinado rango, al final de la factura)