Redimensionar una tabla

¡Hola, Alexa!

Si necesitas añadir muchas filas y columnas copia el siguiente código
en un módulo y ejecútalo como macros.
__________________________________
Public Sub InsertaFilas()
Dim i As Integer, NúmFilas As Integer

If Selection.Information(wdWithInTable) = True Then
NúmFilas = Val(InputBox("Introduzca el número de filas que
desea añadir a la tabla: ", "Insertar filas", 1))
For i = 1 To NúmFilas
Selection.Tables(1).Rows.Add
Next
Else
MsgBox "Seleccione la tabla donde desea insertar filas",
vbInformation, "Insertar filas"
End If
End Sub

Public Sub InsertaColumnas()
Dim i As Integer, NúmColumnas As Integer

If Selection.Information(wdWithInTable) = True Then
NúmColumnas = Val(InputBox("Introduzca el número de columnas
que desea añadir a la tabla: ", "Insertar columnas", 1))
For i = 1 To NúmColumnas
Selection.Tables(1).Columns.Add
Next
Else
MsgBox "Seleccione la tabla donde desea insertar columnas",
vbInformation, "Insertar columnas"
End If
End Sub
____________________________________________________

Sitúa el cursor en la tabla que quieras ampliar, selecciona la opción
Macros.. del submenú Macro, del menú Herramientas y selecciona
InsertaFilas o InsertaColumnas y luego pulsa el botón <Ejecutar>.
Introduce el número deseado de filas o columnas y pulsa el botón
<Aceptar>

Espero que te solucione el problema.

Un saludo,
Ignacio.