Auto Sorting Multiple Columns - Last Row Will Not Sort

Good Afternoon.

I would like to call on the powers that are Excel Help Forum.
I am currently working on a database that catalogs companies by :Company Number, Number of Employees, Address, GPS Coordinates, City/State, and Date established.

I am attempting to make the rows Auto Sort as they are being input into the sheet, (Smallest to Largest) by company number and number of employees.
I would like to input the entire row before it sorts. I have attached a small sample with the code I have so far, but the last row input will not sort properly. The last row entered sorts only by Company Number an not by Number of Employees. I know that using merged cells is frowned upon, however, this is an established database and people entering the data don't like change. Any help would be GREATLY appreciated. Thanks in advance.

Pls see if this meets your needs. Changed your code to a)track when changes are made to Company Number OR Number of employees b)Added an extra Sort key for Count of employees

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A20:A49")) Is Nothing Then
Application.EnableEvents = False
Me.Sort.SortFields.Clear

Me.Sort.SortFields.Add Key:=Range("A20:A49"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Me.Sort.SortFields.Add Key:=Range("C20:C49"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With Me.Sort
.SetRange Range("A20:O49")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.EnableEvents = True
ElseIf Not Intersect(Target, Range("C20:C49")) Is Nothing Then
Application.EnableEvents = False
Me.Sort.SortFields.Clear
Me.Sort.SortFields.Add Key:=Range("A20:A49"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Me.Sort.SortFields.Add Key:=Range("C20:C49"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With Me.Sort
.SetRange Range("A20:O49")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.EnableEvents = True
End If
End Sub

Thanks for the help! I tweaked it a bit to sort after all the data has been entered into the row and VIOLA!