Hi again lucas

I'm a bit stuck with this (I hate arrays!!). This is what I have so far
Dim x As Long
Dim R As Integer
Dim myArray()
 
x = Sheets("Records").Range("A2", Range("A65536").End(xlUp)).Row
ReDim myArray(x, 3)
 
With Sheets("Records")
For R = 0 To x
    myArray(R, 0) = .Range("A" & x)
    myArray(R, 1) = .Range("D" & x)
    myArray(R, 2) = .Range("G" & x)
Next R
End With
but I get a Subscript out of range error, whcih I'm guessing is something to do with the array.

Any help greatly appreciated.