Hola por favor su ayuda...
Tengo el siguiente código... lo que trato de hacer en el useform indico un nombre a buscar en otra hoja
Ma falta agregar un código para que se coloque en la celda que contiene el valor y después pegue un dato en el renglón que contiene el valor pero en la última celda vacía.... ¿se puede??

Sub filtro()
asesor = InputBox("Asesor a Buscar", "Buscador de Asesores")

Set valorbuscado = Worksheets("rep calid").Range("c:c").Find(asesor)
If valorbuscado Is Nothing Then
MsgBox "No se localizó al asesor"
Else
dato1 = valorbuscado.Row
Sheets("mail").Select
Range("g23").Select
Selection.Copy
Sheets("rep calid").Select
ActiveSheet.Range("d11").Activate ::aquí tengo el problema, no se como indicar que pegue en el renglón activo y no en d11::
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Activate
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
End Sub

Gracias a todos