Cells.VerticalAlignment procedure builder

Cells.VerticalAlignment (Word)

Returns or sets the vertical alignment of text in one or more cells of a table.

wdCellAlignVerticalBottom - Text is aligned to the bottom border of the cell, wdCellAlignVerticalCenter - Text is aligned to the center of the cell, wdCellAlignVerticalTop - Text is aligned to the top border of the cell.
Set newDoc = Documents.Add 
Set myTable = newDoc.Tables.Add(Selection.Range, 3, 3) 
i = 1 
For Each c In myTable.Range.Cells 
 c.Range.InsertAfter "Cell " & i 
 i = i + 1 
With myTable.Rows(1) 
 .Height = 20 
 .Cells.VerticalAlignment = wdAlignVerticalTop 
End With