Rows.First (Word)

Returns a Row object that represents the first item in the Rows collection.

ActiveDocument.Tables(1).Borders.Enable = False 
With ActiveDocument.Tables(1).Rows.First 
 .Shading.Texture = wdTexture10Percent 
 .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle 
End With