Sort Based on 2 conditions

[MM91]

So in column A I have a numerical value that i need to sort by number on column a and then by type on column L. I am piecing together a code using the macro recorder but I able to sort them seperately but it messes up the sort order once I try to secondary sort by column L. Any help or guidance would be appreciated!

Option Explicit
Sub SortMyData()
Dim lr As Long
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 1).End(xlUp).Row
Range("A7:Q" & lr).Sort key1:=Range("A7"), order1:=1
Application.ScreenUpdating = True

    Cells.Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("L3:L25") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A3:L25")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply

    End With

End Sub

 

[Fluff]

What is the first row with data? part of your code is starting in row 3 & part in row 7

 

[MM91]

All of my data that needs to be sorted starts in cell A7 to column Q on down.

 

[Fluff]

Is row 7 a header row, or data?

 

[MM91]

row 7 is data, rows 1-6 are header rows. Thank you!

 

[Fluff]

Ok, how about

Sub SortMyData()
   Dim lr As Long
   Application.ScreenUpdating = False
   lr = Cells(Rows.Count, 1).End(xlUp).Row
   Range("A7:Q" & lr).Sort Range("A7"), xlAscending, Range("L7"), , xlAscending, Header:=xlNo
End Sub

 

[MM91]

that worked perfect thank you so much! Much simpler than what I was trying to do

 

[Fluff]

You're welcome & thanks for the feedback.

 

[MM91]

Hi I need to add an additional situation for sorting where after it sorts by the date. How would I add that to this code?
Thank you!

 

[Fluff]

Sorry but that makes no sense, in your image there are no dates.