Private Sub Worksheet_Change(ByVal Target As Range)
     Const lastId As Long = 3
     Const colOffset As Long = 6
     Dim vColor As Long, i As Long
     If Not Application.Intersect(Target, Me.Range("G7:I7")) Is Nothing Then ' если изменились значения ячеек в диапазоне "G7:I7", то …
         For i = 1 To lastId
             With Me.Shapes("Дом" & CStr(i)) ' будем работать с картинками, имеющими имена "Дом1", "Дом2", …, "Дом" & lastId
                 Select Case Me.Cells(Target.Row, i + colOffset).Value ' покраска картинки "Дом" в зависимости от значения в ячейке
                 Case 1: .Visible = msoTrue: .Fill.ForeColor.RGB = vbRed
                 Case 2: .Visible = msoTrue: .Fill.ForeColor.RGB = vbYellow
                 Case 3: .Visible = msoTrue: .Fill.ForeColor.RGB = vbGreen
                 Case Else: .Visible = msoFalse ' если в ячейке значение не 1, не 2 и не 3, то сделать картинку и"Дом" невидимой
                 End Select
             End With
         Next
     End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
     Const lastId As Integer = 6 ' количество домов
     Dim i As Integer
     If Not Application.Intersect(Target, Me.Range("G7").Resize(1, lastId)) Is Nothing Then
         For i = 1 To lastId
             With Me.Shapes("Дом" & CStr(i))
                 Select Case Me.Cells(Target.Row, i + Target.Row - 1).Value
                     Case 1: .Visible = True: .Fill.ForeColor.RGB = vbRed
                     Case 2: .Visible = True: .Fill.ForeColor.RGB = vbYellow
                     Case 3: .Visible = True: .Fill.ForeColor.RGB = vbGreen
                     Case 4: .Visible = True: .Fill.ForeColor.RGB = vbBlue
                     Case 5: .Visible = True: .Fill.ForeColor.RGB = vbMagenta
                     Case 6: .Visible = True: .Fill.ForeColor.RGB = vbCyan
                     Case Else: .Visible = False
                 End Select
             End With
         Next
     End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)    ' обработка события изменения на листе
      Dim rCell As Range, rColors As Range, rNames As Range, iShape As Shape, iDomCol%, iParkCol%
      Dim sAddrStart$: sAddrStart = "G7"
      For Each iShape In Me.Shapes    ' количества рисунков домов и парковок на листе лучше не задавать, а посчитать
          If iShape.Name Like "Дом" & "?" Then iDomCol = iDomCol + 1   ' считаем количество домов
          If iShape.Name Like "Парковка" & "?" Then iParkCol = iParkCol + 1  ' считаем количество парковок
      Next iShape
      Set rColors = Me.Range(sAddrStart).Resize(1, iDomCol + iParkCol)    ' диапазон с цветами картинок
      Set rNames = rColors.Offset(-1, 0)    ' диапазон с именами картинок на строку выше
      If Not Intersect(Target, rColors) Is Nothing Then    ' если изменили что-то в диапазоне с цветами картинок
          For Each rCell In rNames    ' перебираем ячейки в диапазоне с именами картинок
              On Error GoTo neXxt    ' чтобы не было ошибки если имя написано не правильно
              With Me.Shapes(rCell)    ' для картинки с именем, заданным в ячейке rCell
                  Select Case rCell.Offset(1, 0).Value    ' в зависимости от значения в ячейке ниже управляем картинкой
                  Case 1: .Visible = True: .Fill.ForeColor.RGB = vbRed
                  Case 2: .Visible = True: .Fill.ForeColor.RGB = vbYellow
                  Case 3: .Visible = True: .Fill.ForeColor.RGB = vbGreen
                  Case 4: .Visible = True: .Fill.ForeColor.RGB = vbBlue
                  Case 5: .Visible = True: .Fill.ForeColor.RGB = vbMagenta
                  Case 6: .Visible = True: .Fill.ForeColor.RGB = vbCyan
                  Case Else: .Visible = False
                  End Select
              End With
neXxt:
          Next rCell
      End If
End Sub

Like "Дом" & "?"