Ошибка в завершении макроса

[СтаСС]

Может я путано объяснил.. вложил пример где все подробно описано + наглядные примеры и вставлено три макроса (от EducatedFool, IgorGO и "мой")
Хелп ми плиз )

[IgorGO]

а без макросов, просто обычными словами, но привязываясь к адресам ячеек и листов обьяснить что Вам нужно можете?
сможете - и решение найдется

[СтаСС]

)
Попробую еще раз.
Нужно: с листа 1 скопировать 6-ю строку и вставить ее (значения и формат) на лист 2 в первую свободную строку (сверху-вниз) вот вроде и все..

[IgorGO]

worksheets(1).rows(6).copy worksheets(2).cells(rows.count,1).end(xlup).offset(1)

[СтаСС]

тоже самое как и

Range("6:6").Copy Sheets("2").Range("A" & Sheets("2").Rows.Count).End(xlUp).Offset(1)

форматы переходят но вместо значений формулы.. ну или ссылки на ячейки..
может это как то связано с тем что копируются ячейки типа A6=A1, A7=A2 И тд?
вот как получается :

[IgorGO]

это связано с тем что у меня нет файла и я не имею представления, что там в ячейках, а Вы цедите информацию по одному слову

[СтаСС]

IgorGO, я извиняюсь но файл с примером я выложил с самого начала.. притом уже два раза.. последний выше в посте №11

[IgorGO]

set rg = worksheets(2).cells(rows.count,1).end(xlup).offset(1)
worksheets(1).rows(6).copy rg
rg.resize(1,6).value = worksheets(1).cells(6,1).resize(1,6).value

[СтаСС]

Да.. Теперь все делает как надо!
IgorGO, большое Вам спасибо!!!

[СтаСС]

IgorGO, но это работает только при 6 ячейках? сейчас попробовал добавить на лист 1 данные в ячейку G6

(что нужно поменять если больше данных будет а не 6 ячеек? в идеале чтоб всю строку можно было копировать так..)