Rows.Add (Word)

Retorna um objeto Row que representa uma linha adicionada a uma tabela.

Add (BeforeRow)

BeforeRow: Um objeto Row que representa a linha que irá aparecer imediatamente abaixo da nova linha.

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