Selection.InsertRows (Word)
Insere o número especificado de novas linhas acima da linha que contém a seleção. Se a seleção não estiver em uma tabela, ocorrerá um erro.
Você também pode inserir linhas usando o método Add do objeto Rows.
InsertRows (NumRows)
NumRows: O número de linhas a ser adicionado.
If Selection.Information(wdWithInTable) = True Then
Selection.InsertRows NumRows:=2
Selection.Borders.Enable =False
End If