Macro VBA seleccionar rangos de celdas de una columna

hos pongo este ejemplo:

Range("A3,A6,A9,A12,A15,A18,A21,A24,A27,A30,A33,A36,A39,A42,A45,A48").Select ----->pues asi hasta la 3000

como lo toy haciendo me puedo morir hasta llegar hasta la 3000, asi que igual hay algo para que valla sumando 3 o nose

saludos

Para que no te canses:

Sub Seleccionar()


Set rango = Range("A3")

For x = 6 To 3000 Step 3

   Set rango = Application.Union(rango, Range("A" & x))

Next

rango.Select


End Sub


[/CODE]