Excel - detener bucle

Hola a tod@s..

Verán, no se de Access, pero he necesitado hacer una hoja, que va contener los datos copiados de otra.
A su vez necesito ordenar las lineas copiadas, y eliminar las que estén vacías.

He conseguido por medio de código, que he copiado del foro, que me funcione, tanto lo de copiar los datos como ordenarlos, pero no he conseguido detener el bucle.

Este es el código que uso, por favor si alguien me puede ayudar, se lo agradecería.


Private Sub commandbutton2_click()
'Sub eliminar()

Dim rngstring As Range
Do
Set rngstring = Columns("b").Find("", MatchCase:=False, lookat:=xlPart, LookIn:=xlValues)
If Not rngstring Is Nothing Then
rngstring.EntireRow.Delete
End If
Loop Until rngstring Is Nothing

j = 1 'declaramos la variable para el avance de linea
For i = 1 To 200 'Declaramos la variable para seleccionar el rango de celdas donde se copian los datos
If Cells(i, 1) <> "" Then ' Busca la primera celda vacia a partir de la ultima con datos
Rows(i).Select 'Busca la linea vacia
Application.CutCopyMode = False ' no borra ningun dato
Selection.Cut 'Elimina las lineas vacias intermedias, si existieran
Range("a" & j).Select ' selecciona la linea vacia
ActiveSheet.Paste 'Cópia los datos por lineas
j = j + 1 ' va sumando las lineas de una en una
End If
Next
End Sub