Rows.Add (Word)

Returns a Row object that represents a row added to a table.

Add (BeforeRow)

BeforeRow: A Row object that represents the row that will appear immediately below the new row.

Sub AddARow() 
 If Selection.Information(wdWithInTable) = True Then 
 Selection.Rows.Add BeforeRow:=Selection.Rows(1) 
 End If 
End Sub