Excel VBA Sort

[MrLevie]

arkadaşlar elimde bir tablo var. ve bu tablonun içindeki D sütununda farklı farklı stringler var. bu stringler belirli bir sıraya göre dizilsin istiyorum.
atıyorum mesela "LAVENDER" "GRAY" olacak, grayler lavenderlerden sonra gelecek hep. mesela graylerden sonra gelecek şeyler de var.

akşamdan beri çalışan bir sistem kuramadım=(

[Mr_Hand]

vb ile yapman şart mı?

[MrLevie]

malesef=(

[wiski]

ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("A1:A8"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="a,h,c,d,e,f", _ Burası string sıran
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sayfa1").Sort
.SetRange Range("A1:A8") Sıralayacağın alan
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

makro kaydederek yaptım, gereksiz kod satırı olabilir