Reporte al buscar varios datos en una base

CommandButton4_Click()
buscar = InputBox("Scanea el codigo que deseas buscar", "Buscar....")
If buscar = "" Then Exit Sub
'
col = "A" ' columna a buscar
col2 = "U" ' columna a pegar el dato encontrado
'
Set b = Columns(col).Find(buscar, lookat:=xlWhole, LookIn:=xlValues)
If Not b Is Nothing Then
f = b.Row
ActiveSheet.Cells(f, 21).Select
Cells(f, col2) = Cells(f, col)
Else
MsgBox ("EL CODIGO DE BARRAS NO SE ENCUENTRA EN LA BASE"), vbCritical, ""
Set busco = Nothing
End If
End Sub

Tengo esta macro que me busca códigos en una base de datos lo que quiero es que cuando busque los datos los coloque en otra hoja llamada usuario 1 o usuario 2 dependiendo de que usuario esté en el sistema el dato del usuario lo tengo en una hoja en la celda h1 y tambien que ese dato lo coloque en la fila que contenga la fecha actual