Seleccionar 1 celda si y 6 celdas no

[Hola 

Te paso la macro

Valora la respuesta marcando buena o Excelente saludos!

Sub Select_rangos()
'
'Fuente Dante//'Act. Adriel Ortiz
'
    Set a = Cells(3, "A")
    For i = 3 To Range("A" & Rows.Count).End(xlUp).Row Step 6
        Set a = Union(a, Cells(i, "A"))
        a.EntireRow.Select
    Next i
'
End Sub