Simple loop & array question.

So, all I want to do is a Do Until the end of an array loop. Here's my current code:

        Do Until allTeams(i - 7) <> ""
            If allTeams(i - 7) = cells(i, 6) Then
                'Don't care about this case
            Else
                ReDim Preserve allTeams(i - 6)
                allTeams(i - 6) = cells(i, 6)
            End If
            i= i +1
        Loop

I get the subscript out of range error.