Excel: Macro con la funcion de edicion/buscar

[espiritu64]

Soy nuevo en esto 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:
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

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