Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$B$3" Then
Range("B:G").Interior.ColorIndex = xlNone
For i = 4 To 106 Step 2
For j = 3 To 7
If Cells(i, j) <= Target Then Cells(i, 2).Resize(2, j-1).Interior.ColorIndex = 20
Next j
Next i
End If
End Sub