Hi,

I tried to copy some filtered rows. If there is no rows to copy, it
will encounter: Run-time error '1004', No Cells were found. ie the
code stops at "result.SpecialCells(xlCellTypeVisible).Copy"
Then I change the code to "If result Is Nothing Then " and continue,
It smoothly completes the process.
However, it fails to copy when there are rows to copy ie the code
skips copying the rows and reach at End If

Codes Extract

Sheets(1).Select
Dim Lrow As Long
Dim result As Range
Lrow = Range("A" & Rows.Count).End(xlUp).Row
Set result = Range("A2:G" & Lrow + 1)
Range("K1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=11, Criteria1:="0", _
Operator:=xlOr, Criteria2:="<0"
Range("D1").Select
Selection.AutoFilter Field:=4, Criteria1:="=*void*", _
Operator:=xlAnd
If Not result Is Nothing Then
result.SpecialCells(xlCellTypeVisible).Copy
Sheets(2).Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If

Any helps will be much appreciated and thanks in advance

Regards
Len