Без претенции за точност ...
[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]