Sorting Data

[Dummy Excel]

Hi All,

I have some data with a total at the bottom. I need to sort my data without including the totals row
my code is:

    ActiveWorkbook.Worksheets("STORE SUMMARY").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("STORE SUMMARY").Sort.SortFields.Add Key:=Range("K:K") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("STORE SUMMARY").Sort
        .SetRange Range("A1").CurrentRegion
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

any ideas?
thanks
Sam