Insert just one row

[Q45]

How do I write a macro that will insert one new row right beneath a given row?

 

[Tom Urtis]

Sub InsertRow()
ActiveCell.Offset(1, 0).EntireRow.Insert
End Sub

Tom Urtis

 

[Q45]

That was so easy! Thank you!