Sorting after using a macro

It has been a while since I have used macros. I am attempting to place a macro in column A on a spreadsheet that allows the user to use "Ctrl L" to automatically generate the next consecutive number. The entire rows are filled with data that needs to be sorted from time to time, to include column A.
After using the macro to fill the cell in Column A, complete the data entry in the entire row, then attempt to sort, I recieve a #Value, because the numbers are no longer consecutive. Is there a different code I can use to allow for the consecutive numbers, but also allow for sorting with no errors? This is what I have now, and it is basic, no frills.

Sub Macro5()
'
' Macro5 Macro
''
ActiveCell.FormulaR1C1 = "=R[-1]C+1"

End Sub


Thank you! Here is what I am working on::::

Complaint # Date Call Rvd Name Phone Type
11558
11559

I agree with your method JapanDave for a None sorted list, their list gets sorted from time to time.
The one thing with the Change method, if an adjustment where to take place in an existing cell above.
The Counter will start placing new numbers at will, this could be a pro or con.

Yours with a twist.

Please Login or Register  to view this content.

Or

This method below also allows for this and fills in the next number in line by cell selection only (Active Cell).

Please Login or Register  to view this content.

Thank you both!