Macro de busqueda

Hola !
Espero que alguno de ustedes pueda ayudarme con el siguiente requerimiento:

Tengo una macro que busca en la columna BE el dato que se encuentra escrito en el rango DT3 y cuando lo encuentra ( en la columna BE deja la celda activa ) y con un offset se recorre a la derecha los brincos indicados en el rango EA3 (dejando activa la celda ) para pegar en ella la cantidad que se encuentra en la rango (DX3).

Pero ahora necesito que es este ciclo se repita hasta que en la columna DT encuentre una celda vacia......... pero no se como hacerlo .

Aqui les dejo el codigo que tengo hecho

Range("DX3").Select
Selection.Copy
Columns("BE:BE").Select
Cells.Find(What:=Range("DT3"), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
ActiveCell.Offset(0, Range("ea3") + 3).Select

ActiveSheet.Paste
Application.CutCopyMode = False


Espero que puedan ayudarme gracias