Macro to sort and subtotal current region

I need help creating a macro that does the following:

1. Select the current region based on the active cell.
2. Sort by state class, then acq date.
3. Subtotal the sum of the reported cost at each change in state class, then bold each subtotal and grand total.

The current region will include a first row header.

I have attached a sample file. I will have many of these groups of data on the same spreadsheet, and I am wanting to just run the macro to do it automatically.

Thanks in advance,

David White

Sub Region_Sort_Subtotal()
    
    Application.ScreenUpdating = False
    With ActiveCell.CurrentRegion
        
        'convert text dates to serial dates
        .Range("H1:H" & .Rows.Count).TextToColumns Destination:=.Range("H1"), _
            DataType:=xlFixedWidth, FieldInfo:=Array(0, 3), TrailingMinusNumbers:=True
        .Range("H1:H" & .Rows.Count).NumberFormat = "dd-mmm-yy"
        
        .Sort Key1:=Range("D2"), Order1:=xlAscending, Key2:=Range("H2"), _
            Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
            MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal, DataOption2:=xlSortTextAsNumbers
        
        .Subtotal GroupBy:=4, Function:=xlSum, TotalList:=Array(5), _
            Replace:=True, PageBreaks:=False, SummaryBelowData:=True
            
    End With
    Application.ScreenUpdating = True
    
End Sub