Buscar datos repetidos y copiarlos

Hola a todos espero me ayuden gracias
Tengo un libro con 3 hojas, en la hoja 1 tengo información que puede repetirse
,tengo una macro que hace la búsqueda en la hoja1 por medio de un form llamado buscar que tiene un textbox llamado nombre y pega los resultados en la hoja2, si buscamos un valor y es repetido guarda los 2 valores el problema es que si solo encuentra
un valor deja guardado un valor de la búsqueda anterior mas el nuevo valor

Private Sub Buscar_Click()
Dim uf As Long, TextBox1 As String, repetidos As Long
With Application
.ScreenUpdating = False
uf = Range("B" & Rows.Count).End(xlUp).Row
'donde se pega el resultado
Sheets("hoja2").Range("B1").CurrentRegion.Delete
For x = 2 To uf
With Sheets("hoja2")
If nombre = Range("B" & x) Then repetidos = repetidos + 1: _
Range(Cells(x, "B"), Cells(x, "V")).Copy .Range("B" & Rows.Count).End(xlUp)(2)
End With
Next
With Sheets("hoja2")
Sheets("hoja1").Range("B1:V1").Copy .Range("B1")
.Activate
With ActiveWindow
.ScrollColumn = 1: .ScrollRow = 1
End With
Range("A1").Select
.Columns("B:V").AutoFit
End With
Unload Me
.ScreenUpdating = True
If repetidos = 0 Then _
MsgBox "No existen registros con ese nombre", vbExclamation, "Información": Exit Sub
MsgBox "Total Registros Repetidos: " & VBA.Format(repetidos, "#,##0"), vbInformation, "Éxito!"
End With
End Sub

Gracias por su ayuda.