Hi,
try this. Works for me.

Note: the second last row: "ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select" is only to get the moved row marked.

Kind regards
Bjorn


Sub MoveDown()
'
' MoveDown Macro
'
' Keyboard Shortcut: Ctrl+a
'
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Cut
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select
End Sub