Hello,

thank you for the help, I am pretty new at this forum thing. So I hit the #, see if it works
The solution below works well, although it turned out I can not use the autofilter because of other macros used in the same file,so i need to find another solution.

Sub delete_error()

ActiveSheet.Unprotect (password)
With ActiveSheet
    .AutoFilterMode = False
    With Range("g4", Range("g" & Rows.Count).End(xlUp))
        .AutoFilter Field:=1, Criteria1:=Array("*Error*", "*Do not check*"), Operator:=xlFilterValues
        On Error Resume Next
        .Offset(1).SpecialCells(12).EntireRow.Delete
    End With
    .AutoFilterMode = False
End With
ActiveSheet.Protect (password), DrawingObjects:=True, Contents:=True, Scenarios:=True, _
                     AllowSorting:=True, AllowFiltering:=True
End Sub