VBA - row insert in alphabetical order

Hey Guys,

I have need of some expert help now as I have been trying to modify code from others solutions and got absolutely no where for the last week.

Sheet names:
NEWSITE - this is where brand new entries are created (this is where I need the help)
UPDATE - thanks to davesexcel for previous coding
Data_Entry - this is where the data will be inserted

So the process on the NEWSITE sheet is that you fill out the sitecode/BGP AS and QOS fields - this then allows a button to pop-up (Add Record), click the add record.
the data is taken from the fields in NEWSITE and inserted into Data_Entry. At the moment this is selecting the next empty row.

I need to change this as further processing in the rest of the sheets (that arent included in this version) have issues with vlookups and the insertion at the bottom of the sheet breaks them all. I dont really want the user touching Data_Entry sheet as that's raw data, so asking the user to go in, create a new row and then copy/paste into the right row... or doing sort on column A isn't an option.

The VBA code is all done in each of the sheets so there are no modules used for reference.

TIA
Dribble