VB Hjælp plus 1

Skal bruge noget hjælp til at plusse 1 til en kode
C = 30 værdier
set c(skal have en +1 funktion) så x ikke vil angive dens tal.
den skal for hver værdi + 1
    For x = 1 To 33 step 5 'vil være c(1 to 6)
        Set c(x - 1) = Cells(1, 1).Offset(2 * (x - 1))
    Next x
det vil gøre at set C(1)  til C(6) har hver deres værdi
og skal kunne sætte den ind hvor man ønsker med
X fortæller rækken
men den fortæller også C()= x men den skal så tage C(1 til 6) for hver række
For x = 11 To 40
    Cells(10, 4).Offset(4 * (x - 1)).value = c(x - 1)
Next x

Er der en som kan se en løsning på mit problem!?

Sub ICopy()
Dim c(30) As Range
With Workbooks("text.xls").Sheets("Ark1")
    For x = 1 To 30
        Set c(x - 1) = Cells(1, 1).Offset(2 * (x - 1))
    Next x
End With
With Workbooks("text.xls").Sheets("Ark2")
For x = 11 To 40
    Cells(10, 4).Offset(4 * (x - 1)).value = c(x - 1)
Next x
End With
End Sub