макрос, копирование диапозона

[Drevlad]

Нужна помощь, есть диапазон данных в ячейках А2:Е2, они копируются в таблицу в ячейки В6:F6, столбец А в данной таблице-№ п/п. Далее происходит копирование данных вниз по количеству нумерации в таблице. Созданный макрос средствами excel, копирует только указанный диапазон, а необходимо по количеству данных в столбце А (т.е количество строк каждый раз разное). Не знаю как правильно исправить макрос.

Range("B6").Select
ActiveCell.FormulaR1C1 = "=R[-4]C[-1]"
Range("B6").Select
Selection.AutoFill Destination:=Range("B6:F6"), Type:=xlFillDefault
Range("B6:F6").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("B6:F14")
Range("B6:F14").Select

[Watcher_1]

По вашему ТЗ
в голову пришел только такой вариант

myE = Range("A65000").End(xlUp).Row
Range("A2:E" & myE).Copy
Range("B" & myE + 1).PasteSpecial (xlPasteValues)

было бы лучше увидеть живой пример того что вы хотите...

[Drevlad]

Пример во вложении, ранее нащел подобный макрос, но к своему вопросу применить не получается.

myR = Sheets(1).Range("A2").End(xlDown).R ow
Range("D2").AutoFill Destination:=Sheets(1).Range("D2:D" & myR)
(http://www.cyberforum.ru/vba/thread353663.html)

[Watcher_1]

Ловите

[Drevlad]

не то, необходимо что бы данные A2:E2 копировались в таблицу в диапозон B6:F6 и далее вниз, т.е в каждой строке данные повторяются из диапозона A2:E2

[Watcher_1]

Так?

[Drevlad]

оно премного благодарен