Sort Ascending

Hello,

Unfortunate the circumstances, I am not very good with excel
Currently I have the following code to insert the copied range into the combobox. The following code works fine.

With Sheet1
.Range(.Range("D3"), .Range("D" & .Rows.Count).End(xlUp)) _
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("P3"), Unique:=True
fClient.List = .Range(.Cells(4, 16), .Cells(.Rows.Count, 16).End(xlUp)).Value
End With

However, when following is entered (added), the code does not work... what I am trying to do is to "sort ascending" the range so that it would display alphabetical order in the combobox shown. The name of the worksheet is BalanceSheet

With Sheet1
.Range(.Range("D3"), .Range("D" & .Rows.Count).End(xlUp)) _
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("P3"), Unique:=True
fClient.List = .Range(.Cells(4, 16), .Cells(.Rows.Count, 16).End(xlUp)).Value
Sheet1.Range(“P3″, Sheet1.Range(“P65536″).End(xlUp)).Sort _
Key1:=Range(“P3″), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With

If you require any further information, please let me know and I will upload what information is required.
Your assistance is much appreciated. Thanks so much in advanced.