Pasar datos de una matriz a una fila determinada

hola,

Tengo 50 filas con datos en las columnas a,b,c,d,e,f,g,h,i,j
Necesito que cuando ponga un numero del 1 al 50 en la casilla A1, los datos
de la fila correspondiente, me pasen a la fila 100

prueba a poner esto en el modulo de la hoja (boton secundario en
pestaña hoja => ver codigo => pegas esto (ojo no este usandose ya el
procedimiento 'Worksheet_Change' en ese modulo). luego vueve a la hoja
y mira a ver

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Or _
Not IsNumeric(Target) Then Exit Sub
If Target.Value > 0 And Target.Value < 51 Then _
Range("a100:j100").Value = Range(Cells(Target.Value, 1), _
Cells(Target.Value, 10)).Value
End Sub

espero ayude

un saludo
Ivan