VBA 를 이용해 부분합을 만들 수 있을까요?

Option Explicit

Sub 입고일자부분합()
    Dim ws As Worksheet, data As Range
    
    Set ws = Worksheets("입고일자별")
    Set data = ws.Range("E1").CurrentRegion
    
    With data
        '기존 부분합 제거
        .RemoveSubtotal
 
        '정렬
        .Sort Key1:=.Cells(1), Order1:=xlAscending, _
            key2:=.Cells(2), Order2:=xlAscending, _
            key3:=.Cells(4), Order3:=xlAscending, _
            Header:=xlYes
            
        '부분합
        .Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(6), _
            Replace:=True, PageBreaks:=False, SummaryBelowData:=True
       
    End With

End Sub