Hjælp til simpelt array

Kan nogen hjælpe? Jeg har tidligere lavet arrays, men nu driller det pludselig, og jeg kan ikke se hvad jeg gør galt.
Jeg har et dataark med 7 kolonner, og et ukendt antal rækker som jeg økser at indlæse i et array

Jeg opretter derfor et array hvor jeg kender den ene dimension, mens den anden skal resizes undervejs...

Min kode - fejler efter at have indlæst en række......

Option Base 1
Option Explicit

Sub makeArray()

Dim myArray() As String
Dim arrSize As Long, x As Integer

Worksheets("Ark1").Activate
Range("A1").Select
Do Until ActiveCell = ""

arrSize = arrSize + 1
ReDim Preserve myArray(arrSize, 7)

For x = 1 To 7
myArray(arrSize, x) = ActiveCell.Offset(0, x - 1)

Next x
ActiveCell.Offset(1, 0).Select
Loop

MsgBox "OK - " & arrSize & " rækker indlæst i array"

' herefter skal der køre anden kode der udlæser fra array til et andet ark
' ved indlæsningen er jeg også nødt til at læse rækkerne én for en da kun nogle bestemte data skal indlæses

End Sub