Auto alphabetize individual columns

[Adlcv99]

Hi. I am trying to figure out how to sort each column individually in alphabetical order if and when a new country name is added to that column. Picture attached of example data.
I have only been able to create a VBA to sort one column if a new country name is added but if will do nothing to the others just move them around based on the current sort. I cannout figure out how to get the other columns to sort as well individually when a new country name is added.

 

[Adlcv99]

Greetings
Try this

Sub test()
Sort Range("A1:E10") ' change A1:E10 as your request
'Call Sort(Range("A1:E10"))  ' change A1:E10 as your request
End Sub

Sub Sort(DataRng As Range)

'''''''''''''''' Note  without Header''''''''''''
Dim CLCnt As Long, RwCnt As Long
Dim SrtRng As Range

CLCnt = DataRng.Columns.Count 'Number of Columns
RwCnt = DataRng.Rows.Count    'Number of Rows

    For Cl = 1 To CLCnt 'to go through Range Columns On By on

    Set SrtRng = DataRng.Cells(1, Cl).Resize(RwCnt, 1) ' Sort Range column by column
        SrtRng.Sort Key1:=SrtRng.Cells(1, 1), Order1:=xlAscending, Header:=xlNo

    Next

End Sub

Thank you for your efforts but I couldn't get this one to work. There is another on in the thread that was able to work.