Sub obrisiCrveniRed()
    Dim lRow As Long
    Dim iCntr As Long
    lRow = ActiveSheet.UsedRange.Rows.Count
    For iCntr = lRow To 1 Step -1
        If Cells(iCntr, 1).Interior.ColorIndex = 38 Then 'boja
            Rows(iCntr).Delete
        End If
    Next
End Sub