Sort column in table when closing workbook

[ipbr21054]

I have the following code in use.
I have a table of which is Row 1 headers,then the value start in row 2 then down the page.
Columns are A-K

Column G are dates & at present they are sorted OLD to NEW then down the page.
How do i edit the code shown so the dates are sprted NEW to OLD please
I tried to add Ascending / Descending etc but got in a mess so posted what currently works for me.

Thanks

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Worksheets("RANGER").Range("D2").ClearContents
    Range("G2").CurrentRegion.Sort Key1:=Range("G2"), Header:=xlYes
End Sub

 

[DanteAmor]

Try:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Worksheets("RANGER").Range("D2").ClearContents
    
   Range("G2").CurrentRegion.Sort Key1:=Range("G2"), Order1:=xlDescending, Header:=xlYes
End Sub

 

[ipbr21054]

Thanks