спасибо помогло

Побыстрее:  
Application.Calculation = xlManual  
Worksheets("по_территориям").Cells(10, 2).Resize(5).Value = Application.Transpose(zab)  
Application.Calculation = xlAutomatic  
 
И я бы сразу создавал массив zab двумерным, чтоб при выгрузке не использовать Transpose.

{quote}{login=Hugo}{date=13.06.2012 09:17}{thema=}{post} чтоб при выгрузке не использовать Transpose.{/post}{/quote}  
:)

Просто если массив одномерный, то Вы его заполняете примерно так:  
zab(1)="test1"  
zab(2)="test2"  
zab(3)="test3"  
и выгружаете так:  
Cells(10, 2).Resize(3).Value = Application.Transpose(zab)  
 
А если двумерный, то Вы его заполняете примерно так:  
zab(1,1)="test1"  
zab(2,1)="test2"  
zab(3,1)="test3"  
и выгружаете так:  
Cells(10, 2).Resize(3, 1).Value = zab  
Т.е. исключается Transpose, что может глючить с большими объёмами и просто не работает с длинными строками (длинне 255 символов).  
Но с двумерными другая "неудобность" - менять размерность можно только "вширь", но не "вниз", что как раз чаще всего и нужно.  
Но с другой стороны - частое и многое употребление Redim Preseve сильно тормозит код (особенно при увеличении размера массива), поэтому я например одномерные массивы если и использую, то обычно не изменяю.  
А если точный размер в начале кода не известен - я массив сразу задаю на возможный максимум, при заполнении считаю заполненные "строки", и ровно столько и выгружаю.  
Поэтому ничего не мешает создавать и использовать сразу двумерный массив.  
Вот как-то так...