Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("B5:P10")) Is Nothing Then
        [a1].Interior.ColorIndex = Target.Interior.ColorIndex
        With ActiveSheet.Shapes.Range("Овал 1")
            .Left = Target.Left + Target.Width / 2 - .Width / 2
            .Top = Target.Top + Target.Height / 2 - .Height / 2
        End With
    End If
End Sub

Public nstep As Long
Public Sub GetColor()
    Dim x, y, shp As Shape, r As Range, cell As Range
    Application.ScreenUpdating = False
    nstep = nstep + 1
    If nstep >= Range("G5") Then
        With ActiveSheet.Shapes.Range(Array("Ãðóïïà 4"))
            x = .Left + .Width / 2
            y = .Top + .Height / 2
        End With
        Set shp = ActiveSheet.Shapes.AddShape(msoShapeOval, x, y, 1, 1)
        Set r = shp.TopLeftCell
        shp.Delete
        Range("G6").Interior.Color = r.Interior.Color
        nstep = 0
        For Each cell In Range("BK4:BK15")
            If cell.Interior.Color = r.Interior.Color Then Range("H6") = cell.Offset(, 1): Exit For
        Next cell
    End If
    Application.ScreenUpdating = True
End Sub