Macros excel Función edición/buscar

[mrocf]

Hola! espiritu64. Intenta con:

Código:

Private Sub CommandButton1_Click()
Dim Celda As Range, Primera As String
Set Celda = [A:A].Find(What:=TextBox1, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
If Celda Is Nothing Then
  MsgBox "No hay": Exit Sub
End If
Primera = Celda.Address: [D6] = Celda
Set Celda = [A:A].FindNext(Celda)
Do Until Celda.Address = Primera
  [D65536].End(xlUp).Offset(1, 0) = Celda: Set Celda = [A:A].FindNext(Celda)
Loop
End Sub 

Aunque no lo hayas comentado, estoy interpretando que el valor de las celdas que contienen al texto especificado por TextBox1, deseas copiarlas a partir de la celda [D6] y hacia abajo.

Saludos, Cacho.