ник: snipe
да понятно все это .....
countrow это количество строк в вашем recordset-e т.е. если раньше вы не знали сколько в нем строк то теперь знаете
ни что не мешает Вам вернуться на первую запись Company.MoveFirst
организовать цикл через тот же For Next (количество строк уже известно)
выгружать инфу в Excel построчно например .Range("A" & i)=Company.Column(0) где i переменная цикла
потом перейти на другую запись recordset-а Company.MoveNext
можно заодно подсчитывать сумму
да - посмотрите в хелпе что такое Cells в некоторых случаях гораздо удобнее чем Range (особенно при организации цикла) (если точно то я уже забыл когда Range использовал)