VBA Code For Sorting Left To Right

I am wondering if a block of code can be used rather than having to enter line by line as the following code is below? Also if the select is necessary?


Sub Macro1()
'
' Macro1 Macro
' Keyboard Shortcut: Ctrl+Shift+S
'
Range("N135:V135").Select
Selection.Sort Key1:=Range("N135"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Range("N142:V142").Select
Selection.Sort Key1:=Range("N142"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
End Sub