RE:macro que seleccione un rango
Aqui te dejo esta respuesta que publique en otro foro aunque es una variante de una que publique anteriomente aca, pero debes usar el buscador!!!
Sub RangoVariable()
Dim Primera As String
Dim Final As String
'si faltan variables por declarar te lo dejo como tarea
'Comienza tu rango
Range("A3").Activate
'Encontramos su direcccion
Primera = ActiveCell.Address
MsgBox Primera 'Opcional solo para que vayas probando
'Recorremos hasta la ultima agregada
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Activate
Wend
'volvemos a la ultima con datos y tomamos su direccion
ultima = ActiveCell.Offset(-1, 0).Activate
Final = ActiveCell.Address
MsgBox Final 'Opcional solo para que veas por donde va
'Construimos el area
myrange = Range(Primera, Final)
'Creamos el nombre para que este disponible en las formulas
ActiveWorkbook.Names.Add Name:="miarea", RefersTo:=Range(Primera, Final)
End Sub
Este codigo selecciona automaticamente el rango con datos asumiendo que los mismo estan en la columna A a partir de A3, lo que debes hacer es cambiar eso por inputbox para que tu le pases el rango, sin embargo tambien usando el buscador deje hace poco unos links donde recomendaba dos mauales y en uno de ellos se indica un ejemplo de seleccionar rangos con este objeto, dale una mirada y si no puedes escribes de nuevo