вставка пустой строки относит акт ячейки и копир диап

[EJIF]

Для упрощения работы требуется такой макрос - имеется таблица данных (числовые знач, формулы, текст) при работе часто выполняются след действия - в таблицу вставляется новая строка (выше активной ячейки) и с верхней (относительно ее) строки вставляется первые пять ячеек.

Пробовал методом записи макроса, но там всегда подставляются конкретные знач диапазона(те A1:E1 или A5:E5)

Sub Макрос3()
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A5:E5").Select
Selection.AutoFill Destination:=Range("A5:E6"), Type:=xlFillDefault
End Sub

как переделать, чтобы вставлялось относительно активной ячейки?

[alex77755]

Sub Макрос3()
Dim R
R = ActiveCell.Row
Selection.EntireRow.Insert
Range("A" & R - 1 & ":E" & R - 1).Select
Selection.AutoFill Destination:=Range("A" & R - 1 & ":E" & R), Type:=xlFillDefault
Range("A" & R).Select
End Sub

[EJIF]

Сообщение от alex77755

Sub Макрос3()
Dim R
R = ActiveCell.Row
Selection.EntireRow.Insert
Range("A" & R - 1 & ":E" & R - 1).Select
Selection.AutoFill Destination:=Range("A" & R - 1 & ":E" & R), Type:=xlFillDefault
Range("A" & R).Select
End Sub

Спасибо(работает отлично)! Попробую разобраться с этим вариантом.

Сам написал это -
Sub Макрос1()
Dim a, b As Integer
a = ActiveCell.Row
b = ActiveCell.Column
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range(Cells(a - 1, b), Cells(a - 1, b + 5)).Select
Selection.Copy
Cells(a, b).Select
ActiveSheet.Paste
End Sub

но тут несколько косяков -
не смог обойтись без переменной (при прямой ссылке выдает ошибку компил)
и не снимается область выделения при копировании.