Stop Sort Including Headings

I have this macro that must sort my data from biggest number to smallest

Sub SortTopBottom(varASourceSheet As Variant, varSortKey As Variant, varSortRange As Variant, varCopyRange As Variant, varPasteSheet As Variant, varPasteRange As Variant) ', varAShourceRange As Variant, varSortRange As Variant)
With Application
.Calculation = xlCalculationManual
.StatusBar = True
.StatusBar = "Getting the top 10..."
. ScreenUpdating = False
End With
varASourceSheet.Sort.SortFields.Clear
varASourceSheet.Sort.SortFields.Add Key:= Range( _
varSortKey), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal............................................

For some reason it moves my headings from row 25 to row 2 in sheet2. Also - I read in Mr. Hawley VBA 10 commands that I should NOT select and should NOT activate. Is there a better way to do this sort? I use Office 2007 that does not handles some off the sort stuff I have found here.