Mình có 1 đoạn code xóa dòng với điều kiện sauSub Xoong () Dim rowIndex As

Chào giảng viên, cho mình hỏi.
Mình có 1 đoạn code xóa dòng với điều kiện sau

Sub XoaDong ()
Dim rowIndex As Long
Dim DongCuoi As Long
DongCuoi = ActiveWorkbook.ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

For rowIndex = 2 To DongCuoi
If ActiveSheet.Range("A" & rowIndex).Text = "Local" Then
ActiveSheet.Range("A" & rowIndex).EntireRow.Clear.Delete
End If
Next rowIndex
End Sub


Nhưng đoạn code này chạy và xóa không hiệu quả, tức là xóa không hết những dòng thỏa điều kiện.
Sau đó, mình tham khảo trên mạng và sửa lại đoạn code thành

Sub XoaDong()

Dim rowIndex As Long
Dim DongCuoi As Long
DongCuoi = ActiveWorkbook.ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

With Application

.Calculation = xlCalculationManual

.ScreenUpdating = False

For rowIndex = DongCuoi To 1 Step -1
If ActiveSheet.Range("A" & rowIndex).Text = "Local" Then
ActiveSheet.Rows(rowIndex).EntireRow.Delete
End If
Next rowIndex

.Calculation = xlCalculationAutomatic

.ScreenUpdating = True

End With

End Sub

Đoạn này chạy ra kết quả đúng. Vậy giảng viên cho mình hỏi, những dòng lệnh mình thêm vào sau này, có ý nghĩa gì vậy ạ?