Sub TblHiLite()
Application.ScreenUpdating = False
Dim r As Long, h As Long, StrTitle As String
With Selection.Tables(1)
  StrTitle = Split(.Cell(2, 1).Range.Text, vbCr)(0)
  .Rows(2).Shading.BackgroundPatternColorIndex = 0
  h = 0
  For r = 3 To .Rows.Count
    If Split(.Cell(r, 1).Range.Text, vbCr)(0) <> StrTitle Then
      If h = 0 Then h = 3 Else h = 0
      StrTitle = Split(.Cell(r, 1).Range.Text, vbCr)(0)
    End If
    .Rows(r).Shading.BackgroundPatternColorIndex = h
  Next
End With
Application.ScreenUpdating = True
End Sub