Macros excel Función edición/buscar

[espiritu64]

Gracias por tu aporte David, pero aun no me sale nada :S , algo le falta a mis codigos, estoy que trato de diferentes formas, lo ultimo:
Columns("A:A").Select
Dim n As Range
Set n = Selection.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.FindNext(After:=ActiveCell).Activate
If n Is Nothing Then
MsgBox "No hay"
Else
Range(n.Address).Select
Selection.Copy
Range("D6").Select
ActiveSheet.Paste
End If

End Sub

No me da resultado, y si utilizo FindNext sale que no se admite esta propiedad. Trate de separar los procesos con diferentes botones de comando y no entiendo mucho eso de findnext
Lo que trato es que copie todos los valores posibles y los pegue en una celda