What you need is the "Find" method. Here's the link that has a great explanation. After you define whatever you're looking for set a variable equal to your search variable then add ".EntireRow.Select" or copy or whatever you want to do. Here's an example of something I did before using .find :

Sub Frank ()

Dim source As Range
Dim FFS as Range
Dim destRow as String

Set source = ActiveWorkbook.Worksheets("IMPORT").Range("A9:A100 00")

Set FFS = source.Find(what:=searchString, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns)
destRow = FFS.EntireRow.Cut

End Sub


This code won't do EXACTLY what you're looking for, it's just an example of what how I used '.Find' . The link below will help tons.

http://www.globaliconnect.com/excel/...=79&Itemid=475