Help with macro to sort, subtotal, total

I have to post checks every day. I have a macro set up to allow me to enter -data (check ID), go to column B (amount) -enter data, go column C (description), enter - next row. This lets me do all data entry with the keypad. I then have to manually sort data by column A, then manually subtotal and total column B. Is there a way to add to my existing macro to do this or do I need to run another. Also could this be set up to AutoRun. Here is my macro Thanks in advance.

Sub enter_data()
newdata:
ActiveCell = InputBox("Check ID?", vbOKCancel)
ActiveCell.Offset(0, 1).Select
ActiveCell = Format(Val(InputBox("Amount?", vbOKCancel) / 100), "0.00")
ActiveCell.Offset(0, 1).Select
ActiveCell = InputBox("Description?", vbOKCancel)
ActiveCell.Offset(1, -2).Select
ans = MsgBox("Next dataset. Continue?", vbOKCancel)
If ans = vbOK Then
GoTo newdata
Else: Exit Sub
End If
End Sub