Non capisco questo modo di creare una tabella, ma logicamente prova così:
Public Sub NomeSub(ByVal grid As DataGridView)
Dim aTable As Table = New Table(grid.Rows.Count, grid.Columns.Count)
For col As Integer=0 to grid.Columns.Count-1
For row As Integer=0 To grid.Rows.Count-1
aTable.AddCell(col.ToString & "." & row.ToString)
Next
Next
End Sub
P.S.: L'ho scritto al volo, controlla che le variabili per righe e colonne siano assegnate correttamente.
--------------
Maurizio Brini
--------------
Nessuna impresa è mai stata compiuta da un uomo ragionevole