Need to sort entire row by column A (ascending)

[adibakale]

I have a locked spreadsheet that I don't want users to be able to freely modify. I would like to add a Macro Button that when clicked, will sort the data.

The data is in Columns (A) to (L) and varies in row length - anywhere from 1 row to 1000. I would like to sort columns regardless of how many rows there are.

Column A stores dates, and I would like to sort all rows beginning in cell A4 since this is where the data starts.

---

Here is what my excel sheet looks like: (it usually contains anywhere from 1 - 1000 rows of data)

Purchase Date	Transaction Description	Amount	D/C	Account Bal	REF	SIC	AUTH	BAL ID	Post Date
01/15/2008	ATHLETA ONLINE 0848700 877-328-4538 OH	$240.95	CR ADDL	9106.37	M13FFHI11531OU1BUY	5969	000000	99998	06/18
06/16/2015	CVS/PHARMACY #09914 00 AUBURN CA	$4.07		9,106.37	M12FFH05230XND0ODI	5912	616135	99998	06/18
04/02/2001	SUNRISE NATURAL FOODS AUBURN CA	$30.74		9,106.37	M05FFH7364980213FT	5499	616194	99998	06/18
06/18/2015	DELTA AIR LINES ATLANTA USA	$25.00			M04FFHM4228F4822CU	4511	517115	99998	06/19
02/15/2001	COSTCO WHSE #0670 0000 SPOKANE WA	$162.12			M13FFK24447YZEISEZ	5300	619175	99998	06/22
01/19/2008	WAL-MART SUPERCENTER 4 SPOKANE WA	$18.31			M05FFJG05371XR0D6U	5310	219150	99998	06/22

<colgroup><col><col><col><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>

Any help with this is greatly appreciated, thanks!

 

[Technowolf]

Sub SortSheet()
    ActiveSheet.Unprotect
    ' Or if password protected:
    ' ActiveSheet.Unprotect Password:="YourPassword"
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("A4", Range("A64000").End(xlUp)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("A4", Range("L64000").End(xlUp))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveSheet.Protect
    
End Sub

Do you need help on adding the button too?