Соединить два списка в третий

[SAS888]

почему-то данные помещает на тот же лист, откуда берет

Так и есть. Пропустил точку. В макросе "Main2" замените строку кода

With Sheets("Клиенты"): For j = 1 To x.Count: Cells(j + 1, 3) = x(j): Next: End With

на

With Sheets("Клиенты"): For j = 1 To x.Count: .Cells(j + 1, 3) = x(j): Next: End With

[Иванов_ДМ]

Все, теперь все заработало!
SAS888 огромное спасибо!!!!!!
ЗЫ. Чтобы заголовки не хватал, поправил сам