Below is an example to get the active cell and insert a row just under it.
' This code was borrowed from http://www.viiweb.com and is free to use without
' warranties or guarantees.
Dim activeRow, intTemp As Integer ' declare some variables
activeRow = ActiveCell.Row ' get the current row
intTemp = activeRow + 1 ' get the next row
Rows(intTemp & ":" & intTemp).Select ' select the whole row
Selection.Insert Shift:=xlDown ' do the insert
Tested Platform: Excel 2003