How to turn this into private function w/ arguments

I've got a bit of code that works great, but I'd like to turn it into a private function w/ arguments so I can avoid hard coding info each time I use it in another piece of code. What I have that works great is:

Set ws = Worksheets("Report")
ws.Columns("H:J").Sort Key1:=ws.Range("J2"), Order1:=xlAscending, Header:=xlYes, _
   OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

Ideally, I'd like to pass, as arguments, the sheetname, columns, column to sort on, and ascending or descending. You can assume that the sheets will all be in the same workbook. Also, would like to do it w/o selecting or activating if that's possible.

Thanks.

When I run the code, using this to call:

Set ws=Worksheets("Report")
SortRange ws.Columns("H:J"), 3

I get 'wrong number of arguments or invalid property assignment" and it errors/debugs on this line:

Private Sub SortRange(rangeToSort As Range, columnToSortBy As Long, Optional order As XlSortOrder = xlAscending)

That's awesome! Works great now. One last question, what would the "call" statement look like if I wanted to change the sort order?

Sweet! Thanks so much!