Sub Demo() Dim Rng As Range With ActiveDocument.Tables(1) Set Rng = .Range With Rng .Start = .Rows(3).Range.Start .Sort End With End With End Sub