Macro excel seleccionar rangos

[alizee_zgz]

Gracias por contestar!
Y lo siento, porque me he dado cuenta de que no me he explicado nada
bien :(

Yo lo que tengo en una hoja excel es una columna con datos, de la fila 1 a la 6 estan en blanco y a partir de la 7 hay datos.
Lo que intento con este codigo es, me pongo en la casilla A1 y luego pulsando las teclas ctrl+shift+ flecha hacia abajo me seleccionara de la A1 a la A7 y luego volviendo a pulsar ctrl+shift+ flecha hacia abajo, me selecciona
tambien de la A7 hasta la ultima fila donde haya datos. Y asi me selecciona todo, para luego copiarlo

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Igual asi me he explicado mejor