Code to check in cell equals a value, if true copy row.

Hi Creeky,

I think this is what you said:

Sub Creeky(): Dim wa As Worksheet, wr As Worksheet, ws As Worksheet
Set wa = Sheets("ALL STOCK NEW"): Set wr = Sheets("Stock Removed")
                Set ws = Sheets("Stock <= Min")
Dim a As Long, r As Long, s As Long: s = ws.Range("A" & Rows.Count).End(xlUp).row

a = 2: Do Until wa.Range("N" & a) = ""
If wa.Range("N" & a) = 1 Then
s = s + 1: wa.Range("N" & a).EntireRow.Copy ws.Range("A" & s)
End If: a = a + 1: Loop
End Sub

I'm not sure it's what you want??

You can also try:

Sub TransferInvetory()
Dim r As Long, endRow As Long, pasteRowIndex As Long

endRow = Range("A" & Rows.Count).End(xlUp).Row + 1
pasteRowIndex = 1

For r = 1 To endRow 'Loop through sheet1 and search for your criteria

    If Cells(r, Columns("L").Column).Value <= Cells(r, Columns("M").Column).Value Then 'Found

            'Copy the current row
            Rows(r).Select
            Selection.Cut

            'Switch to the sheet where you want to paste it & paste
            Sheets(3).Select
            Rows(Range("A" & Rows.Count).End(xlUp).Row + 1).Select
            ActiveSheet.Paste

            'Next time you find a match, it will be pasted in a new row
            pasteRowIndex = pasteRowIndex + 1


           'Switch back to your table Delete the row if found (Disabled by default)
            Sheets(1).Select
            'Rows(r).Delete

'Continue to search for your criteria
    End If
Next r

MsgBox "Complete!"
End Sub

Hi Creeky,

You're welcome