Cần giúp hoàn thiện Macro Tự động tính tổng khi nhập dòng mới

[depchai]

Hi mọi người.
Mình đang cần hoàn thiện code macro tự động thêm 1 dòng và tính tổng số lượng ở các hàng trên khi thêm 1 dữ liệu mới.

Macro này mình tham khảo của bác sealand, nhưng code sẽ chạy không chính xác khi ta thêm mới hoặc xóa dữ liệu cũ.

Như trong file đính kèm thì ở Nhóm C, khi thêm vào Mã số C04 thì SUM vẫn giữ giá trị cũ chứ không thay đổi.
Vì dữ liệu mình nhập nhiều khi cần thay đổi, thêm bớt nên cần mọi người giúp đỡ để hoàn thiện hơn macro này.

Bác nào có khả năng thì giúp mình với nhé. Xin cám ơn

Đây là code macro

Private Sub Worksheet_Change(ByVal Target As Range)Dim so As String
Dim dg As Long
dg = Target.Row
Application.EnableEvents = False
If Target.Column = 1 And Target.Text <> "" Then
If Target.Row <= 2 Then Exit Sub
For i = Target.Row - 1 To 1 Step -1
If Sheet1.Cells(i, 1) <> "" Then
so = Sheet1.Cells(i, 1)
Exit For
End If
Next
Range(Target.Address, Target.Offset(0, 3).Address).Insert Shift:=xlDown
Sheet1.Cells(dg, 3).EntireRow.Interior.ColorIndex = 35
Sheet1.Cells(dg, 1) = "SUM"
Sheet1.Cells(dg, 1).Font.Bold = True
Sheet1.Cells(dg, 1).Font.Size = 16
Sheet1.Cells(dg, 3).Formula = Application.WorksheetFunction.Sum(Range(Sheet1.Cells(dg - 1, 3), Sheet1.Cells(i, 3)))
Sheet1.Cells(dg, 3).Font.Bold = True
Sheet1.Cells(dg, 3).Font.Size = 16
Sheet1.Cells(dg + 1, 2).Select
End If
Application.EnableEvents = True
End Sub

 

[depchai]

Ai có thể giúp mình sửa lại code này ko