Las negritas: ¿Donde estan?

No ha salido publicado el formato negrita Galileo, el caso es que donde pone el código "Range("a5"). Select " debe seleccionar la primera fila en blanco. Es decir, en la hoja uno voy metiendo comodamente datos y me los va pasando a la hoja 2 en forma de tabla.

Hola Nacho, usa algo asi:
LR = Sheet2. Range("A65536"). End(xlUp). Row + 1
Range("B1:B3"). Copy
Sheet2. Range("A" & LR). PasteSpecial Transpose:=True

Armando, estoy probando solo con el código que me mandas en Hoja1 y también con el siguiente código, que es el que me generó la macro + el que tú me indicas, sustituyendo la línea "Range("a5"). Select" por "LR = Sheet2. Range("A65536"). End(xlUp). Row + 1
Range("B1:B3"). Copy
Sheet2. Range("A" & LR). PasteSpecial Transpose:=True" que es lo tú me envías y seguramente estoy poniendo algo mal o en un sitio no adecuado, ya que no me va.

De antemano mil gracias porque estas pequeñas cosas que nos ayudais, nos facilitan muchas cosas en el trabajo.

Un abrazo

Debe ser asi:
Sub Macro1()
LR = Hoja2. Range("A65536"). End(xlUp). Row + 1
Range("B1:B3"). Copy
Hoja2. Range("A" & LR). PasteSpecial Transpose:=True
Hojas("Hoja1"). Select
Range("B1:B3"). Select
Application. CutCopyMode = False
Selection. ClearContents
Range("B1"). Select
End Sub
Adjunto ejemplo.

Nacho2

Hola! Nacho.
Si siempre es el rango [B1:B3] el que copias, una variante podría ser:

Sub Macro1()
Sheets("Hoja2" ). [a65536]. End(xlUp ). Offset(1). Resize(1, 3) = Evaluate("transpose(B1:B3)")
Range("B1:B3" ). ClearContents
End Sub


Saludos, Cacho.