Hello,

Below is a piece of code that I have that has been working very well to cut specified values from a given range and pasting the values to a new location.

The problem that I now have that instead of looking up a text string, I need to copy all cells with a negative value to a new location.

The columns and ranges are in the below code, I just can't seem to come up with a way to call out the "negative value cells"

I would greatly appreciate any suggestions.

Thank you!

Sub SeparateNegativeBottles()
Dim Rng As Range
Dim LastRow As Long
Dim Wrd As String

Wrd = cellvalue
LastRow = Cells(Rows.Count, "D").End(xlUp).Row

If WorksheetFunction.CountIf(Columns(4), Wrd) < 0 Then
    Columns("I:I").AutoFilter Field:=1, Criteria1:=Wrd
    Set Rng = Range("I600:I650").SpecialCells(xlCellTypeVisible)

    Rng.EntireRow.Copy Destination:=Rows(800)
End If

ActiveSheet.AutoFilterMode = False
End Sub