Marc... I have pasted one workbook in my first post itself.... I guess you missed itAs Excel basics are often faster than a VBA code and here it's just a filter needing a 5 seconds manual operation ‼And if you want really a code post at least a workbook with source data and an expected result layout as we are not mind readers …
Sub Do_It()
Application.ScreenUpdating = False
With ActiveSheet
If .FilterMode Then
.Range("H:H").AutoFilter
Else
.Range("H:H").AutoFilter Field:=1, Criteria1:=">2000"
End If
End With
Application.ScreenUpdating = True
End Sub