a bit more detail might help

Manually?

One way...

Insert a new column (say E??)
Put this in E1:
=mod(row(),4)
drag down as far as you need to go

Now apply Data|Filter|Autofilter to column E.
Filter to show only the 1's
Then select column A
Edit|goto|special|visible cells only

then either remove the autofilter or just turn it off:
data|filter|autofilter
or
data|filter|show all

You can delete that helper column later.

sure hold down ctrl and select the cells in question.

You might want to code it I suppose in which case you do:

range("your_range").resize(4,1).select

I'm not sure how much more I can help without more info

So you want to select 1007 cells; simultaneously or sequentially?

Bruno

This selects simultaneously 1007 cells as requested
------------------------------------------------
Sub BigSelection()
Dim i As Integer, NumArray(1 To 1008) As Integer
Dim j As Integer, BigRange(1 To 28) As String
Dim VeryBigRange As Range
For i = 1 To 4029 Step 4
   j = j + 1
   NumArray(j) = i
Next
For i = 1 To 28
   For j = 1 To 36
       BigRange(i) = BigRange(i) & "A" & NumArray(j + 36 * (i - 1)) & ","
   Next
   Mid(BigRange(i), Len(BigRange(i)), 1) = " "
Next
BigRange(i - 1) = Mid(BigRange(i - 1), 1, Len(BigRange(i - 1)) - 7)
Set VeryBigRange = Application.Union( _
Range(BigRange(1)), Range(BigRange(2)), Range(BigRange(3)),
Range(BigRange(4)), _
Range(BigRange(5)), Range(BigRange(6)), Range(BigRange(7)),
Range(BigRange(8)), _
Range(BigRange(9)), Range(BigRange(10)), Range(BigRange(11)),
Range(BigRange(12)), _
Range(BigRange(13)), Range(BigRange(14)), Range(BigRange(15)),
Range(BigRange(16)), _
Range(BigRange(17)), Range(BigRange(18)), Range(BigRange(19)),
Range(BigRange(20)), _
Range(BigRange(21)), Range(BigRange(22)), Range(BigRange(23)),
Range(BigRange(24)), _
Range(BigRange(25)), Range(BigRange(26)), Range(BigRange(27)),
Range(BigRange(28)))
VeryBigRange.Select
End Sub
---------------------------------------------

Ciao
Bruno