macro help

[danushka]

Sub customer()

    Range(A2:M84).Select
    ActiveWorkbook.Worksheets(sum).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(sum).Sort.SortFields.Add Key=Range(C3:C84), _
        SortOn=xlSortOnValues, Order=xlAscending, DataOption=xlSortNormal
    With ActiveWorkbook.Worksheets(sum).Sort
        .SetRange Range(A2:M83)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Selection.Subtotal GroupBy=3, Function=xlSum, TotalList=Array(10), _
        Replace=True, PageBreaks=False, SummaryBelowData=True
End Sub

Dear friends i have recoded above macro.(sort & subtotal) that range is not fix.it's depend on the data.so i want run above macro on my selection.pls help me.thanks in advance.

 

[danushka]

pls help me friends.top data range is as above.but below range only not fix.