Custom Sort based on specific text

I am trying to sort based on a specific order of words. Here is part of my macro. The part in yellow is what I am having trouble with.


'now find new Last row
With ActiveSheet
LastRow = Range("A" & Rows.Count).End(xlUp).Row
'sort using column "A"
Rows("4:" & LastRow).Sort _
Header:=xlNo, _
Key1:=Range("A4"), _
Order1:=xlAscending, _
OrderCustom:=("Weekly,Monthly,Quarterly,Annauly")

End With