Lehet ennél szebben, egyszerűbben?:

Dim MEZO(0 To 7) As String
For i = 0 To UBound(MEZO)
MEZO(i) = Cells(i + 2, 3).Value
Next