Thanks for the reply!

I am getting an runtime error '91' and this is the line it highlights when i debug:
Nms.Find(e, lookat:=xlWhole).EntireRow.Cut e

The only adjustments i am making to the code is in red:
Set c = Columns(1).Find("John Doe")

Also can i specify where the row will be copied such as A36?

Thanks again! Gary