Redim array - out of range

Dear all,

I know that problem is obvious but now for me I have darkness in my mind. I try to load data from excel cells to variant array. Data is in columns A and B. My code:

Sub RedimTbl()
  Dim tbl() As Variant
  Dim i As Integer
  
  i = 1
  Do Until Cells(i, 1) = ""
    ReDim Preserve tbl(1 To i, 1 To 2)
    tbl(i, 1) = Cells(i, 1)
    tbl(i, 2) = Cells(i, 2)
    i = i + 1
  Loop

End Sub

And unfortunately I get error 'Subscription out of range'