Excel highlight cells with the same value in colors

I need a macro that will color all duplicate cells with colors,

I need to color the cells in different colors, to Cell A2 and Cell A3 can have the same value like 50, and Cell A4 and A5 can have the value of 60, And Cell A7,A8 and A9 can have tha value of 40, or Cell A11, A15 and A20 can have tha value of 250.

I need the colors to not be the same if the value is different so Cells A2 and A3 can be yellow if the value is duplicate , then Cell A4 and A5 can be Orange, Cells A7, A8 and A9 can be yellow.

The problem is that it I can have an Excel files from 10 cells to 600 cells, So It can take forever to do manually.

I have a macro that can color in this way, but I need to be able to read tha value i the colored cells, something my macro can't do.

Is it possible to do something like this in VBA?

[![enter image description here](https://i.stack.imgur.com/FsLi9.png)](https://i.stack.imgur.com/FsLi9.png)

VBA Code:

```
    Dim ws As Worksheet
    Dim clr As Long
    Dim rng As Range
    Dim cell As Range
    Dim r As Range

    Set ws = ThisWorkbook.Sheets(ActiveSheet.Name)
    Set rng = ws.Range("A2:a" & Range("A" & ws.Rows.Count).End(xlUp).Row)
    With rng
        Set r = .Cells(.Cells.Count)
    End With
    rng.Interior.ColorIndex = xlNone
    clr = 3
    For Each cell In rng
        If Application.WorksheetFunction.CountIf(rng, cell) > 1 Then
            'addresses will match for first instance of value in range
            If rng.Find(What:=cell, LookAt:=xlWhole, MatchCase:=False, After:=r).Address = cell.Address Then
                'set the color for this value (will be used throughout the range)
                cell.Interior.ColorIndex = clr
                clr = clr + 1
            Else
                'if not the first instance, set color to match the first instance
                cell.Interior.ColorIndex = rng.Find(What:=cell, LookAt:=xlWhole, MatchCase:=False, After:=r).Interior.ColorIndex
            End If
        End If
    Next   
End Sub

```