Range problems

Can any one help ?
The original line read Range (“A4”:”E9”)

I wanted to allow a for next loop,so I set up constant

Const Apples = "A"

Const Elephants = "E"

Dim NumberOfScouts As Integer

Dim FirstOfset As Integer

Dim SecondOfset As Integer

FirstOfset = 0

SecondOfset=0

For NumberOfScouts = 4 To 21

FirstOfset = FirstOfset + 4

SecondOfset=SecondOfset + 4

Range(Apples & FirstOfset :Elephants & SecondOfset).Select

Does not like above statment,

Next