Macro that pastes data, how can I sort after pasting + format it to match older sheet data

Hi all,

I have a working macro that I run call "Input Data", it essentially grabs raw data in a sheet (Daily Input) a pastes it in the appropriate column on the Active Sheet (Database). What I am trying to do now is simply add 2 simple things to the code:

view attachement, run code, I am trying to work from here

[1] format the newly pasted data to be the same as the rest of the sheet
> I am currently doing this by selecting an old Row > Format Painter > Dragging it along the newly pasted data... would like to automate this. There are certain rows with dates that need tot be formated the same, other with numbers that need the same decimals, and color fill in the background that needs to be there.....
[2] Sort entire spreadsheets data by Column A, oldest to newest
> After I run the macro and it pastes the new data in it's respected place, I would like the macro to Sort the entire spreadsheet oldest-to-newest

I am sure it is a simple task for a guru but I cannot figure it out. Can someone please help me, would really appreciate it.