Update_BC.bas

Sub Update_BC()
    '1. Xoa du lieu cu
    Sheets("ChiTiet").Range("A7:F1000").Clear
    '2. Cap nhat ket qua voi advanced Filter
    Sheets("ChiPhi").Range("A2:K722").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=Range("I6:K7"), _
        CopyToRange:=Range("A6:F6"), _
        Unique:=False
    '3. Tim dong cuoi
    Dim lr As Long
        lr = Sheets("ChiTiet").Cells(Rows.Count, 1).End(xlUp).Row
    '4. Gan ket qua vao dong cuoi
    With Sheets("ChiTiet")
        .Range("B" & lr + 1).Value = Range("I2").Value  'o I2 co doan text la Tong cong
        .Range("F" & lr + 1).Value = Application.WorksheetFunction.Sum(.Range("F7:F" & lr))
    End With
    '5. Dinh dang
    With Sheets("ChiTiet")
        .Range("A" & lr + 1 & ":F" & lr + 1).Style = "Total"
        .Range("F" & lr + 1).NumberFormat = "#,##0"
    End With
End Sub