На дне, замените
Листы (2).Range («F6»). Измените размеры (рядки. Отсчет * cols. Отсчет, 3) = PasteArray
с везде, где вы хотите положить результат, например.
Листы («контрольный оттиск»). Ряд («A1»). Измените размеры (рядки. Отсчет * cols. Отсчет, 3) = PasteArray