Code For A Custom Sort Using A List On Another Sheet

I posted this on another site but have not got an answer. Maybe this cant be done but can someone look at this code and help me make it work...
The table to sort range is Sheet1 (day 1) A6:G (number of rows will vary) sort by column A. Custom sort list is on Sheet6 (Sort) I found this code and played with it. It errors at the area in red. I have a project I would love to make this work on, I don't know VBA good enough to make it work. Thanks of you can help....

[CODE][/Sub Sorting()
Range("A6:E100").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A6"), SortOn:=xlSortOnValues, _
Order:=xlAscending, CustomOrder:="Sort!(A1:A181)", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A6:E100")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End SubCODE]

Will this work or maybe have to start over with different code I don't care, I just would like to see it work. THANKS

title updated.