Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Intersect(Target, Range("B1:B5")) Is Nothing Then Exit Sub
With Range("B1:B5")
     .Value = "": .Interior.Color = xlNone
End With
With Target
     .Value = 1: .Interior.ColorIndex = 45
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      a = Array("b3:b8", "e3:e8", "f12:f17")
      If Target.Count > 1 Then Exit Sub
      For Each x In a
          If Not Intersect(Target, Range(x)) Is Nothing Then
              Range(x).Value = 0
              Target.Value = 1
              Exit Sub
          End If
      Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       a = Array("b3:b8", "e3:e8", "f12:f17")
       b = VBA.Array(VBA.Array("h3:h5,h7:h9,h12:h14", "h3:h5", "h7:h9", "h12:h14"), _
                     VBA.Array("j3:j5,j7:j9", "j3:j5", "j7:j9"))
       If Target.Cells(1).MergeArea.Count < Target.Cells.Count Then Exit Sub
       For Each x In a
           If Not Intersect(Target, Range(x)) Is Nothing Then
               Range(x).Value = 0
               Target.Value = 1
               Exit Sub
           End If
       Next
       For i = 0 To UBound(b)
           If Not Intersect(Target, Range(b(i)(0))) Is Nothing Then
               For j = 1 To UBound(b(i))
                   Range(b(i)(j)).Value = 0
               Next
               Target.Value = 1
               Exit Sub
           End If
       Next
End Sub