VBA Code To Auto Sort Z-A In Certain Columns

Hi,

Please could you help me with the following code -

I have columns B16-B2400 that has data fed by another sheet within the workbook, as the data Is entered into the other sheets this columns fills up at random rows dependant on where the data is entered on the other sheets.

I know I can hit sort Z-A on the column header but I would like a vba code so as the data goes in it auto sorts if that's possible?

Thanks