Macro for Sorting Varied Ranges

[defls]

I am looking to record or create a macro where i can sort varied ranges (by rows & columns) of data without sorting the headers & footers with the data. I have tried recording using CTRL+* and CTRL+{ and other various shortcuts, but have not come to a solution. This is a report that we make 300+ times a year, so I am trying to automate it as much as possible.

Thank you for any help.

 

[MARK858]

A bit hard to tell exactly what you want here as you give very little info on the ranges and no info on the sheet name or column to sort by so the below sorts on Worksheets("Sheet3") with Column C as the column it is sorting by, ignoring the first and last row.

Sub SortRange2()
    Dim LstRw As Long, LstCol As Long
    LstCol = Worksheets("Sheet3").Cells.Find("*", , xlValues, , xlByColumns, xlPrevious).Column
    LstRw = Worksheets("Sheet3").Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row - 1

    With Worksheets("Sheet3")
        .Range(.Cells(1, 1), .Cells(LstRw, LstCol)).Sort _
                Key1:=Worksheets("Sheet3").Columns("C"), Header:=xlYes
    End With
End Sub