SOmething like...
For Each C In MyRange
If C.OffSet(0,-3)="440P-" Then
C.EntireRow.Copy Destination:=Sheets("Resigned").Range("A" &
Rows.Count).End(xlUp).OffSet(1,0)
....etc


--
The Code Cage Team

Regards,
The Code Cage Team
------------------------------------------------------------------------
The Code Cage Team's Profile: http://www.thecodecage.com/forumz/member.php?userid=2
View this thread: http://www.thecodecage.com/forumz/showthread.php?t=5647