Как залить ячейки произвольными цветами и вывести в них же цвет в формате RGB шестнадцатиричное

Private Sub CommandButton2_Click()
    Dim i As Integer, j As Integer, k As Integer, Z As Long, St As String
    Dim OdnomMasCol(1 To 200) As Long 'задаем массив, для хранения цвета
    Dim OdnomMasZnach(1 To 200) As String
    'считываем массив  данных, и переводим его в одномерный массив для последующей сортировки
    k = 0
    For i = 1 To 20
        For j = 1 To 10
            k = k + 1
            OdnomMasZnach(k) = Cells(i, j).Value
            OdnomMasCol(k) = Cells(i, j).Interior.Color
        Next j
    Next i
    ' Сортируем новый массив по строкам (в данном случае есть массив цветов, и ассив значений этих цветов типа String)
    For i = 1 To 199
        For j = i + 1 To 200
            If OdnomMasCol(i) > OdnomMasCol(j) Then
                Z = OdnomMasCol(i)
                St = OdnomMasZnach(i)
                OdnomMasCol(i) = OdnomMasCol(j)
                OdnomMasZnach(i) = OdnomMasZnach(j)
                OdnomMasCol(j) = Z
                OdnomMasZnach(j) = St
            End If
        Next j
    Next i
    ' Отсортированные значения выводим обратно в многомерный массив
    k = 0
    For i = 1 To 20
        For j = 1 To 10
            k = k + 1
            Cells(i, j).Value = OdnomMasZnach(k)
            Cells(i, j).Interior.Color = OdnomMasCol(k)
        Next j
    Next i
 
End Sub

Private Sub CommandButton3_Click()
   Dim i As Integer, j As Integer, k As Integer, Z As Long, St As String
    Dim OdnomMasCol(1 To 200) As Long
    Dim OdnomMasZnach(1 To 200) As String
    k = 0
    For i = 1 To 20
        For j = 1 To 10
            k = k + 1
            OdnomMasZnach(k) = Cells(i, j).Value
            OdnomMasCol(k) = Cells(i, j).Interior.ColorIndex
        Next j
    Next i
    
    For i = 1 To 199
        For j = i + 1 To 200
            If OdnomMasCol(i) > OdnomMasCol(j) Then
                Z = OdnomMasCol(i)
                St = OdnomMasZnach(i)
                OdnomMasCol(i) = OdnomMasCol(j)
                OdnomMasZnach(i) = OdnomMasZnach(j)
                OdnomMasCol(j) = Z
                OdnomMasZnach(j) = St
            End If
        Next j
    Next i
    
    k = 0
    For j = 1 To 10
        For i = 1 To 20
            k = k + 1
            Cells(i, j).Value = OdnomMasZnach(k)
            Cells(i, j).Interior.ColorIndex = OdnomMasCol(k)
        Next i
    Next j
 
End Sub