Macro para copiar un rango de celdas en excel y pasar a hoja 2

[3pies]

Bienvenido a ForosdelWeb.

Prueba esto:

Código:

Sub copiarypegar()
'Seleccionamos todo el área contínua
'de datos, desde la celda donde estamos situados
ActiveCell.CurrentRegion.Select
'Copiamos
Selection.Copy
'Pegamos en A1 de la hoja 2
Sheets("Hoja2").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
End Sub

Salu2