from the little bit of programming i have taken, i know you can combine
similar codes using functions. can someone help me with these sets of code i
have?

Sub SortProjectName()

ActiveSheet.Cells.ClearOutline
Range("A6:T1112").Sort Key1:=Range("Q7"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub

Sub SortDateRec()

ActiveSheet.Cells.ClearOutline
Range("A6:T1112").Sort Key1:=Range("T7"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub