Sort descending date VBA

[papare]

Hello,

Could you kindly assist with the below code, at the moment I use the code to collect data and store it in Sheet Data. The code is linked to a button, i would like to include a sort date which is column C in the Sheet Data. as date can be entered up-hazard.. Many thanks in advance...

Sub upload()

Sheets("Input").Range("C2,C3,C4,C5,C6,C7,C9").Copy
Sheets("Data").Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial _
Paste:=xlPasteValues, Transpose:=True
Sheets("Input").Range("C2:C9").ClearContents

End Sub