Set range and offset

I am having trouble with one line of this code that I can't figure out how to write correctly. I have set the range, but I need to offset by 10 rows up. My code fails at set rng. Here is what I have so far

Dim LsTRow As Long
Dim rng As range
LsTRow = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = range("A7:q" & LsTRow).Offset(-10, 0).Select

With rng
    .Sort Key1:=.Cells(7, 3), Order1:=xlAscending, _
    Key2:=.Cells(7, 1), Order3:=xlAscending, Header _
    :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
    , DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
    xlSortNormal
End With
End Sub