So at the end of the show, you are going to have a table with 330 rows:
Sub SplitColumnIntoRows() Dim oTbl As Table Dim lngRow As Long Set oTbl = ActiveDocument.Tables(1) For lngRow = 1 To 330 Step 10 oTbl.Cell(lngRow, 3).Select Selection.Cells(1).Split NumRows:=10, NumColumns:=1 Next lngRow lbl_Exit: Exit Sub End Sub