Visual Basic for Applications (VBA) Count Unique Cells

c="c=#:?replace(c,chr(35),chr(34) &c &chr(34))":?replace(c,chr(35),chr(34) &c &chr(34))

Function findText(myRange As Range, toFind As String)
    Dim ra As Range
    Dim rCount As Integer
    rCount = 0


    For i = 1 To myRange.Rows.Count
        If InStr(1, myRange(i, 1), toFind, vbTextCompare) Then
            rCount = rCount + 1
        End If
    Next i

    findText = rCount

End Function

If myRange(i, 1) = toFind Then

Sub F10()
Dim i As Long
i = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & i + 1) = Range("F10")
End Sub

Private Sub worksheet_change(ByVal target As Range)
If target.Address = "$F$10" Then
    Dim i As Long
    i = Range("A" & Rows.Count).End(xlUp).Row
    Range("A" & i + 1) = Range("F10")
End If
End Sub

Sub ColorLoop()

    Dim red As Long
    Dim green As Long
    Dim blue As Long
    Dim c As Range

    red = Application.WorksheetFunction.RandBetween(0, 255) ' Let's say the result=1
    blue = Application.WorksheetFunction.RandBetween(0, 255)' Let's say the result=10
    green = Application.WorksheetFunction.RandBetween(0, 255)'Let's say the result=20

' From here the red,blue, green are constant and every cell in the loop will have:

    For Each c In selection
        c.Interior.Color = RGB(1, 10, 20)
    Next c

End Sub