COPIAR UNA FILA A OTRA HOJA EN CELDAS SEPARADAS

hola, 'nuevo en el grupo' :)

ya que te 'confiesas' nuevo, dejame darle un 'toque de formalidad informal' a esta conversacion :))
yo me llamo hector, y me gusta 'mirar a los ojos de mi interlocutor' :D
asi que, si me lo permites [y/o no te 'incomoda'] te llamare [de momento] 'anomimo/a'
ya que el 'nick' que pones pudiera no tener relacion con tu nombre 'real'... vale ?

'regresando' a tu consulta, y segun comentas...

Mostrar la cita

... un Libro con 2 hojas... "Formulario"... una plantilla... en la cual ingreso
... fecha de ingreso del paciente, hora de ingreso, nombre, diagnostico, domicilio, telefono, etc.
... en celdas separadas ("A7", "C15", "C9", "A5", "D3", "F3", "E5", "G5", etc.)
... copie... una macro que pega... los datos en la hoja "Relacion" en una sola fila a manera de base de datos
... quisiera un codigo que hiciera lo contario, o sea que copie una fila de la hoja "Relacion"
... y pegue los datos en la hoja "Formulario" en sus respectivas celdas:

-> solo haria falta que menciones como sabria el codigo 'cual' fila debe 'traerse' de la hoja 'relacion' a la hoja 'formulario' -?-
y [p.e.] si existe la posibilidad de que un mismo paciente/nombre tenga varios 'registros/fechas/filas/diagnosticos/...' -?-
y/o alguna 'combinacion' de campos/columnas/... que permita 'asegurar/se/te' que 'se va a traer' la fila 'correcta' :))

comentas [si hubiera] algun otro 'detalle en el tintero' ?
saludos,
hector.

__ el codigo expuesto __
Sub copiarceldas()
Dim rng As Range, i As Long, Rangos
Rangos = Array("A7", "C15", "C9", "A5", "D3", "F3", "E5", "G5", "E7", "A9", "E9", "A11", "C11", "E11", "G11", "A13", "C13", "A15", "A17", "F17", "G17", "A19", "G7", "A42")
With Sheets("RELACION")
Set rng = .Cells(.Rows.Count, "A").End(xlUp)
For i = LBound(Rangos) To UBound(Rangos)
rng.Offset(1, i).Value _
= Sheets("FORMULARIO").Range(Rangos(i)).Value
Next i
End With
End Sub