I have a workbook laid out in such a way that this will append numbers to
dummy names the way I want:

Sub AppendNumber()
c = 36
For i = ActiveSheet.UsedRange.Rows.Count - 14 To 3 Step -15
Range("A" & i).Value = "LASTNAME" & c & ", " & "FIRSTNAME"
c = c - 1
Next
End Sub

Problem is that another routine that ends up sorting my range Ascending
screws up the numeric order of the appended numbers, ex: last name in the
sorted list winds up as LASTNAME9, FIRSTNAME

Is there something else I can append to the names that will allow a proper
sort?

--
David