Dears
Subject close

Found what I was looking for
See below result

    Columns("G:G").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[1]C"
    ActiveSheet.Range("G:G").AutoFilter Field:=1, Criteria1:=RGB(192, _
        192, 192), Operator:=xlFilterCellColor
    Selection.ClearContents
    ActiveSheet.Range("G:G").AutoFilter Field:=1, Criteria1:=">1000", _
        Operator:=xlOr, Criteria2:="<=0"
    Selection.ClearContents
    ActiveSheet.ShowAllData
Regards