Below is my macro to move differences in column I to a new sheet. I believe it is saying that when there are blank cells in column P and an amount in column I, move to a new sheet. I need it to move to a new sheet if cell F also has blank cells and I has an amount in it. I need ALL amounts that are not Zero in column I to move to a new sheet. How can I fix my macro?

thanks in advance! 


Sub Move_Values_New_Sheet()

Dim rngChk As Range
Dim rngVis As Range
Dim ws As Worksheet

With ActiveSheet.UsedRange
Set rngChk = Cells(.Row, .Column + .Columns.Count).Resize(.Rows.Count)
End With

With rngChk
.Formula = "=SUMIF(I:I,I" & .Row & ",P:P)"
.AutoFilter 1, 0
On Error Resume Next
Set rngVis = .Offset(, 1).SpecialCells(xlCellTypeVisible)
.EntireColumn.Delete
End With

If Not rngVis Is Nothing Then
Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
rngVis.EntireRow.Copy ws.Range("A1")
End If

End Sub