1 - I need a macro to delete entire rows if in column N, cells contain the following "Allocated for Picking"
Private Sub CommandButton1_Click()

Set rng = Range("N:N")
srch = "Allocated for Picking"

For Each Cl In rng
If Cl.Value = srch Then
Cl.EntireRow.Delete
End If
Next

End Sub

- Mangesh