Sub xoa_noidung()Dim i As Long i = ActiveCellEntireRowRow Dim dongdau As Long dongdau =

Sub xoa_noidung()

Dim i As Long

  i = ActiveCell.EntireRow.Row

  Dim dongdau As Long

  dongdau = 4

  Dim dongcuoi As Long

    dongcuoi = Sheet1.Range("E" & Rows.Count).End(xlUp).Row

 ' xet truong hop khong duoc xoa

 If i < 4 Or i > dongcuoi Then

    MsgBox "khong duoc xoa"

    Exit Sub

    Else

    Sheet1.Range("E" & i & ":G" & i).ClearContents

    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("E" & dongdau + 1 & ":G" & dongcuoi), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("Sheet1").Sort

        .SetRange Range("E" & dongdau - 1 & ":G" & dongcuoi)

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    End If

End Sub

Thầy xem giúp e vs e chạy đoạn code trên mà mà máy báo lổi, bỏ đoạn code sắp xếp thì máy chạy chạy bình thường thêm vào thì bổi vàng dòng "Apply" ah. e xin cảm ơn ah