Insert a button, then put this code in the button:
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
Of course, replace A:A with where you want the row to be inserted. Do you need to tell it every time a different place to insert the row?
HTH
-Corticus