Как-то не помогает.
После CalculateUntilAsyncQueriesDone макрос просто перестает работать (дальше что-либо делать).
То же самое после DoEvents.

Добрый день.
Есть такой код VBA:

ЦенаJ = Array(Worksheets("нак").Range(Cells(Int(Strok01), 151), Cells(Int(Strok01), 200)).Value)
For n = 1 To 50
ЦенаM(n) = ЦенаJ(0)(1, n)
Next n


ЦенаJ(0)(1, n) - Что это такое?
(1, n) - массив размерности 1хn, а что означает (0)?