i have this code for setting an arayy from a range

Set r = Range(ActiveCell, ActiveCell.SpecialCells(xlLastCell))
t = r.Value

this is fast for not using "for next" or "do while"
but as i need only some parts of the range (for example columns A C F G) how
can i do that?
is it possible?