Insert a Copy of an Entire Row (including formatting) from Sheet2 to Sheet1

Hi,

1. I need a macro that will allow me to copy an entire row from Sheet2 to Sheet1.
2. The row being copied has merged cells and other formatting. I need the inserted row to retain the formatting.
3. I want to insert the row below the active cell in Sheet1

Thanks

Sorry but I forgot to add a 4th requirement.

4. The row is being inserted in the middle of a sheet filled with data so I need the macro to first insert a new row below the active cell. That way the inserted row is pasted on the new row and will not overwrite existing data.

Thanks Norie. I tried your suggestion but I get an error on the following line

Sheets("Sheet2").Rows(ActiveCell.Row).Insert