Не работает как надо вложенный массив VBA, код в пояснении

В массадже выводится последовательность от 1.1 до 1.9, те строки не учавствуютSub Vf1()

Dim mas(2000, 10) As String

Dim Text As String

Dim m As Variant

Dim n As Variant

m = 1

n = 1

Do While m < 200

Do While n < 10

mas(m, n) = Cells(m,
n)

'Range
("A1:B3")

'Text = Text &
mas(m, n)

Text = Text & m
& "," & n & "; "

n = n + 1

Loop

m = m + 1

'MsgBox
("1")

Loop

MsgBox (Text)