Copiar datos de una hoja a otra con condicion

Hola con gusto saludarte te comento, tengo una macro donde copia los datos de la hoja "Base" a cada una de las hojas si cumple con una condición, el problema es que si tengo 120 registro en la hoja "Base" en las siguientes hojas donde copia los datos los comienza a copiar en la fila 121. Te envío el código

Sub RodrigoGonzalez()
filalibre = Sheets("BASE").Range("v65000").End(xlUp).Row + 1
dato = "Rodrigo Gonzalez"
If dato = "" Then Exit Sub
Set buscado = ActiveSheet.Range("v1:v" & Range("v65000").End(xlUp).Row).Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not buscado Is Nothing Then
ubica = buscado.Address
Do
buscado.EntireRow.Copy Destination:=Sheets("Rodrigo Gonzalez").Cells(filalibre, 1)
filalibre = filalibre + 1
Set buscado = ActiveSheet.Range("v1:v" & Range("v65000").End(xlUp).Row).FindNext(buscado)
Loop While Not buscado Is Nothing And buscado.Address <> ubica
End If
End Sub