Kazuki san,
try this:
Sub copytest()
ActiveCell.Copy ActiveCell.Offset(1, 0)
ActiveCell.Offset(1, 0).Activate
End Sub

rgds,

Halim

Kazuki menuliskan:
is there a macro to insert rows below any row with the same formatting,
including the merging in the source row?