İstenen renkteki hücreleri alıp farklı sayfada sıralama

[said]

Merhaba,

Resimde görülen "etiket" sayfasındaki kırmızı hücreleri alıp "print" sayfasında küçükten büyüğe alt alta sıralatmak istiyorum.(alttaki resimde görüldüğü gibi) (D sütunundaki boşluğu dikkate almayın)

Mevcut dosyamda kırmızı ve yeşil hücrelerin adetini saydırmak için kullandığım bir fonksiyon mevcut.

Function CountCcolor(range_data As Range, criteria As Range) As Long
Dim datax As Range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor Then
CountCcolor = CountCcolor + 1
End If
Next datax
End Function

Bu fonksiyonu istediğim işlem için uyarlayabilir miyiz?
Yardımcı olabilirseniz sevinirim.
Teşekkürler