current cell - select 5 to the right

The imported data list bolds the first item in the second column and then changes the color for the repeated items. It bolds the next change and continues...
From there, I can bold the entire column on the report.

Problem:
The customer wants me to only bold the first 8 columns, not the entire row.
Just can't figure this part out.

4010      objXL.Range("B" & intRowPos & ":B" & intMaxRecordCount + (intRowPos)).Select
          ' Row B has well names in order with dates in order
          
4020      For Each c In objXL.ActiveWindow.Selection
4030      If c.Value <> c.Offset(-1, 0).Value Then
4040          c.Font.FontStyle = "Bold"
4050          c.EntireRow.Font.Bold = True
4060      Else
4070          c.Font.ThemeColor = xlThemeColorDark1
4080          c.Font.TintAndShade = -0.249977111
4090          c.EntireRow.Font.ThemeColor = xlThemeColorDark1
4100          c.EntireRow.Font.TintAndShade = -0.249977111
              'c.Parent.Range(c.Offset(0, 6), c.Offset(0, 8)).ThemeColor = xlThemeColorDark1
              'c.Parent.Range(c.Offset(0, 6), c.Offset(0, 8)).Font.TintAndShade = -0.249977111
4110      End If
4120  Next c
4130      Set c = Nothing