Vb Copy med fejl :S

Hvad laver jeg forkert!?

Sub ICopy()
Dim c(30) As Range
With Workbooks("test.xls").Sheets("Ark1")
    For d = 1 To 30
    For x = 1 To 30
        Set c(d) = Cells(1, 1).Offset(1 * (x - 1))
    Next x
    Next d
End With
With Workbooks("test2.xls").Sheets("Ark2")
For d = 1 To 30
For x = 1 To 30
    Cells(10, 4).Offset(4 * (x - 1)).value = c(1)  '  På/Af
Next x
Next d
End With
End Sub