Hi, I am using this formula to currently sort a worksheet - If the
value in Column E is Retail, it takes the row and copies it to the
Retail Proj worksheet. It works great, but I want it to go one step
further - If Column E contains the word Retail and Column I contains
anything at all, copy entire row to worksheet Retail Proj. If Column E
contains the word Retail and Column I is empty, copy the entire row to
Retail NoProj.

I guess I'm asking how to add the extra criteria?

Thank you!!!!


Sub Sort()

Dim rCell6 As Range
Dim wsh6 As Worksheet

Set wsh6 = ThisWorkbook.Worksheets.Add(, _
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

wsh6.Name = "Retail"

For Each rCell6 In
Worksheets("Sheet1").UsedRange.Columns("E").Cells
If rCell6.Value = "Retail" Then
rCell6.EntireRow.Copy Worksheets("Retail
Proj").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Next rCell6

End Sub