Macros excel Función edición/buscar

[espiritu64]

Saludos a todos
Soy nuevo en esto de las macros en excel y estoy tratando de hacer que con un boton de comando "Buscar" excel me de una lista de todos los nombres de una columna que coincidad con el textbox1, he intentado de todo, pero solo me da un solo registro (el primero segun orden):


Estos son los codigos que puse primero:
Private Sub CommandButton1_Click()
Dim n As Range
Set n = Cells.Find(What:=TextBox1)
If n Is Nothing Then
MsgBox "No hay"
Else
Range(n.Address).Select
Selection.Copy
Range("D6").Select
ActiveSheet.Paste
End If



Estos son otros codigos que probe:
Set n = Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

If n Is Nothing Then
MsgBox "No hay"
Else
ActiveCell.Offset(1, 0).Select
Range("D7") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D8") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D9") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D10") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D11") = ActiveCell
ActiveCell.Offset(1, 0).Selectt
Range("D12") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D13") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D14") = ActiveCell
Range("D15") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D16") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D17") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D18") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D19") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D20") = ActiveCell
End If
End Sub


Ninguno me ha funcionada, solo busca el primer registro que coincida y lo copia en la celda que indico (C6)