Seleccionar celda aledaña a ultima fila usada

Te dejo algunas instrucciones que te servirán para agregar a tu macro:
Sub rangos()
'x Elsamatilde
'selecciona el rango y coloca la referencia en una variable
Range("A1", Range("A1").SpecialCells(xlLastCell)).Select
dire = Selection.Address
MsgBox dire
End Sub
Sdos. No dejes la consulta sin finalizar

Hola
Gracias elsamatilda por tu respuesta oportuna, aunque me falta algo, ya que despliega un mensaje con la selección; es posible que una vez definida la última fila que está utilizada, copie el nombre de la hoja en el rango "A1" hasta A"ultimafila usada en cualquiera de las otras columnas".
Atento a comentarios
Juanmau

Si, en lugar del mensaje tenés que colocar las instrucciones para el pase del nombre (tu consulta trataba de cómo obtener la selección... no del pase de datos ;(
Bien, aquí van las líneas que debes agregar en lugar de la del MsgBox:
For Each celdita In Selection
If celdita.Column = 1 Then celdita.Value = ActiveSheet.Name
Next
Sdos
Elsa
PD) En los manuales de macros encontrarás un cap especialmente dedicado a los bucles.