Hello John, I took this code from this Forum, but I have been asked if it can shade alternative rows only (from selected rows / cells by the user, with the first row they select being white?).
Thank you.

Sub TableShadedAltRows()

Dim X As Integer
Dim Y As Integer
Dim oTbl As Table
Dim B As Long
Set oTbl = ActiveWindow.Selection.ShapeRange(1).Table
For X = 1 To oTbl.Columns.Count
For Y = 1 To oTbl.Rows.Count
With oTbl.Cell(Y, X)
If .Selected Then
.Shape.Fill.ForeColor.RGB = RGB(230, 230, 230)
For B = 1 To 4 ' top,left,bottom and right
With .Borders(B)
.visible = msoFalse
.ForeColor.RGB = vbWhite
.Weight = -0
End With
Next B
End If
End With
Next 'y
Next 'x
End Sub