ماکروی حذف سطرهایی با مقدار خاص در اکسل

Sub DeleteRow()
                   Dim Firstrow As Long
                   Dim Lastrow As Long
                   Dim Lrow As Long
                   With ActiveSheet
                       .Select
                       Firstrow = .UsedRange.Cells(1).Row
                       Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
                       For Lrow = Lastrow To Firstrow Step -1
                           With .Cells(Lrow, "A")
                               If Not IsError(.Value) Then
                                   If .Value = "Excel" Then .EntireRow.Delete
                               End If
                           End With
                       Next Lrow
                   End With
               End Sub