Just add this to macro:

        ws.Range("A" & Range(vTitles).Resize(1, 1) _
            .Row & ":A" & LR).EntireRow.Copy Sheets(MyArr(Itm) & "").Range("A1")

    'add total
        With Sheets(MyArr(Itm) & "").Range("A" & Rows.Count).End(xlUp).Offset(3)
            .Value = "Balance:"
            .HorizontalAlignment = xlRight
            .Offset(, 1).Formula = "=SUM(D:E)"
            .Resize(1,2).Font.Bold = True
        End With
        
        ws.Range(vTitles).AutoFilter Field:=vCol

The first and last lines of that code example are already in the macro, add the stuff in the middle.