Macro que copie un rango variable de la hoja1 a la hoja2

[meggido]

Muchas gracias por vuestra ayuda a todos lo que nos estamos iniciando en la creación de macros con VB en excel.

En esta ocasión necesito si alguien me puede ayudar con la creación de una Macro que copie un rango variable de la hoja1 a la hoja2

Este es el código que intente hacer, pero no me funciona

Public Sub seleccionvariable()
Dim fila, columna As Integer

Sheets("hoja1").Select
Range("a15000").Select 
Selection.End(xlUp).Select 

fila = ActiveCell.Row 

Range("ab1").Select 
Selection.End(xlToLeft).Select 

columna = ActiveCell.Column 

ActiveSheet.Range(Cells(1, 1), Cells(fila, columna)).Select

End Sub

Rangos variables.xlsm

[Antoni]

Tu macro puede reducirse a:

Sub Macro1
   Hoja1.UsedRange.Select
End Sub

 

En cuanto a lo de copiar de una hoja a otra:

Sub Macro2
   Hoja1.UsedRange.Copy Hoja2.Range("A1")
End Sub