Este código crea una nueva tabla de 3 por 3 en el documento activo y la rellena con números del 1 al 9 en orden. Puedes ajustarlo según tus necesidades.

Sub CrearTabla3x3()

Dim tabla As Table Dim fila As Integer, columna As Integer ' Crear una nueva tabla en el documento activo Set tabla = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=3, NumColumns:=3) ' Rellenar la tabla con números del 1 al 9 For fila = 1 To 3 For columna = 1 To 3 tabla.Cell(fila, columna).Range.Text = (fila - 1) * 3 + columna Next columna Next fila End Sub Private Sub CommandButton1_Click() CrearTabla3x3 End Sub