Cell.Next (Word)

Retorna um objeto Cell que representa a próxima célula de tabela no conjunto de células. Somente leitura.

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