Sort Area Around Active Cell By Two Columns

I have various lists of data (using Data > List > Create List...) that do not always have the first cell in the list in column A. I have spent quite a bit of time searching the internet to try and find a macro that will work the same as... Data > Sort > Sort By: Col xx > Then by: Col xy.

Dave supplied me with a macro that will sort a range by the first column:

Sub SortThis()
With ActiveCell. CurrentRegion
.Sort Key1:=. Cells(1, 1), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With
End Sub

I have recorded macro that does the same and looked at the code but this uses Range and specifies the cells to be sorted. I have not been able to work out how to modify the code Dave posted to do a minor sort by the second column. I am after a macro that will determine the range (could be a varying number of columns and rows in different places). For however many columns there may be the macro will sort the full width and height by the first column and then the second column, with all the data within a particular row not being split.

• Sort By Active Cell Column
• Active Area
• Macro To Publish Print Area From Active Sheet To Web Page
• Hide Columns Starting From Active Cell
• Set Print Area Based On Sort
• Range X Rows & X Columns From Active Cell
• Macro To Print Active Area Excluding Cells With Forumula That Doesn't Return Value
• Sort Data On All Worksheets Active And Other
• Sort Range On Non Active Sheet
• Sort Horizontally. Sort Across Columns
• Sort Multiple Columns, With Blanks, And Move All Columns Into One
• How Do You Sort Columns So That They Match Up With Other Columns With Like Data
• (Match & Sort) Sort Columns B And C So That A And B Match Up Numerically
• Sort All Columns Except For Few
• Sort Columns A B C D And E
• Sort A To G And S Columns
• Programmable Print Area: Macro To Set The Print Area According To The Amount Of Data In A Particular Range Of Cells
• Match And Sort By Two Columns
• Sort Columns By A Button
• Sort Across Columns Left-To-Right
• Sort Text To Certain Columns
• Sort Two Columns Simultaneously
• 2 Columns Table Without Using SORT
• VBA: Sort On Two Columns
• Sort Like Numbers In 2 Different Columns
• Auto-Sort Columns
• Graph The Following Data In An Area Chart With Line Charts Superimposed On The Area Chart
• Sort Records That Are 3 Lines By 18 Columns
• Sort Data Over Multiple Columns
• To Sort The Objects In Columns A, B, & C
• Automatically Sort Columns Simultaneously
• Auto Sort All Columns Independently
• Find Cell And Mark Area In Relation To The Cell
• Sort Columns With Multiple Values In Cells
• Macro To Sort 2 Columns Of Numbers Into A New List
• Possible To Sort Hoizontally With Multiple Columns Under One Header
• Sort Repetitive Data From Rows To Columns
• Special Row Sort Of Multiple Columns
• Auto Sort Columns On Workbook Open
• Find A Cell Address From An Area
• Adding Sort Filters To Multiple Selected Columns
• Sort The Lowest Price From Columns And Paste Into Other Celll
• Text Box Or Cell Area Updating
• Filter & Sort Multiple Columns With Single Criteria
• Found In A Range, And Then Sort Their Corresponding Price Values From Highest To Lowest In Columns A And B
• Delete Columns, Increment Alphanumeric Text, Insert Rows & Sort
• VBA To Look At Tha Last Cell That Is Populated In Column And Set Print Area
• Copy/Special Paste Data Within A Range To Next Empty Cell Then Mark The Copied Area
• Find Method To Search For The Active And Non Active Values
• Identify Active Cell And Use The Column To Add Formula To Another Cell