I have a workbook with several sheets.
I have a Master sheet and what I am trying to do is run the script to separate all of the data to predetermined sheets.

Here is a small scale of the script I am trying to get working:

Sub SearchForString()

Dim LSearchRow As Integer
Dim LCopyToRow As Integer

On Error GoTo Err_Execute

'Start search in row 4
LSearchRow = 4

'Start copying data to row 2 in Product (row counter variable)
LCopyToRow = 2

While Len(Range("A" & CStr(LSearchRow)).Value) > 0

'If value in column E = "Mail Box", And If value in column D = "22", copy entire row to Product
If Range("E" & CStr(LSearchRow)).Value = "Mail Box" Then


'Select row in Master to copy
Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
Selection.Copy

'Paste row into Product in next row
Sheets("Product").Select
Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
ActiveSheet.Paste

End If

'Start copying data to row 2 in Product (row counter variable)
LCopyToRow = 2

'If value in column D = "289", And If value in column E = "Mail Box", copy entire row to Supply
If Range("D" & CStr(LSearchRow)).Value = "289" Then


'Select row in Master to copy
Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
Selection.Copy

'Paste row into Supply in next row
Sheets("Supply").Select
Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
ActiveSheet.Paste
'Move counter to next row
LCopyToRow = LCopyToRow + 1

'Go back to Master to continue searching
Sheets("Master").Select

End If

LSearchRow = LSearchRow + 1

Wend

'Position on cell A3
Application.CutCopyMode = False
Range("A3").Select

MsgBox "All matching data has been copied."

Exit Sub

Err_Execute:
MsgBox "Data Not Found."

End Sub

Here is the data in the spreadsheet:

Product ID Product Name Unit Price Units In Stock Description
1 Filet Mignons 18.00 39 Mail Box
2 Chang 19.00 23 Mail Box
3 Aniseed Syrup 10.00 13 Mail Box
4 Cajun Seasoning 22.00 53 Mail Box
5 Gumbo Mix 21.35 289 Mail Box
8 Cranberry Sauce 40.00 6 Mail Box
9 Mishi Kobe Niku 97.00 23 Mail Box
10 Ikura 31.00 31 Mail Box
11 Queso Cabrales 21.00 22 Mail Box
12 La Pastora 38.00 86 Mail Box
13 Test mailbox 12.00 289 Mail Box
14 testing 44.00 22 Anything


Here is the issues I am running into:
It pulls into Sheet Product everything with 22 regardless of the Mail Box string.

Also I am not able to pull any data into the supply sheet.
So if in Column D = 289 and Column E = Mail Box then copy row to Supply.

So What am I missing here??
Any help is greatly appreciated.

Thank you.

Jim