Column.Next (Word)

Retorna a próxima coluna em uma coleção das colunas de tabelas. Somente leitura.

If Selection.Information(wdWithInTable) = True Then 
 Selection.Columns(1).Next.Select 
End If