Copy... Paste... ?

Здравейте!
Този код го създадох със записвачката, но той важи само за този ред, тази селекция. Въпроса ми е, как може да стане така, че като маркирам определен ред и натисна бутон, то същия ред да се копира под него ?
Rows("16:16").Select
Range("B16").Activate
Selection.Copy
Selection.Insert Shift:=xlDown
Благодаря ви!

Без претенции за точност ...
[code]
Sub CopyRow()
Dim Row As Variant
Row = ActiveCell.Row ' селектира реда на Активната Клетка
Rows(Row).Select
Selection.Copy
Rows(Row + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
[/code]

Тагове code в тоз форум няма. Ползвай pre тагове.
Пример:

pre pre pre

tabbed(spaced) pre:

              pre pre

tabbed(spaced) pre, less tabs(spaces):

    pre pre

---

Бачка. Имай предвид, че под Chrome добавя едни гадни празни редове - това е защото Дирът е оптимизиран за IE, който някога беше топ browser и върха на сладоледа - под IE май са ОК новите редове, няма излишни такива...

---