Conteo y selección de celdas

Sub multiselect()

'Cheysson Solano U
Hoja1.Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
RANGO = Selection.Address
Hoja2.Select
Range(RANGO).Select
End Sub

Recuerda finalizar y puntuar!

deja verificar te comento

De antemano agradezco tu tiempo, estaba verificando tu macro, le hice algunas modificaciónes pero no me queda, te explico.

Le ingrese que a partir de a1 se vaya a la primera celda que tiene datos y se recorra hasta la ultima, una vez que este ahi copie todo el rango encontrado, pero aquí no he podido hacer que en B1 se vaya a la ultima celda con datos y abajo pegue el rango que copio antes es decir si en el primer registro encontró 5 celdas llenas de A2:A6 pegue esa información en la columna B pero la última celda con datos esta en B33 que pegue la información de las 5 celdas a partir de la celda B34.

Sub multiselect()
'Cheysson Solano U
Hoja1.Select
Range("A1").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlDown)).Select
RANGO = Selection.Address
Selection.Copy
Range("b1").Select
Selection.End(xlDown).Select
Range(RANGO).Select

y una ultima pregunta por medio de una macro se puede obtener el resultado del recuento que aparece en la barra de estado??

Nuevamente te agradezco, excelente fin de semana y graciaaaaaaaaaas..

Saludos

Sub multiselect()
'Cheysson Solano U
Hoja1.Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("b1").Select
'Bajamos hasta encontrar la fila vacía
Do While Not IsEmpty(ActiveCell)
'Bajamos una fila
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Recuerda finalizar la pregunta y puntuar!