Thanks for the help. It is great to know that it is possible to be done.

I tried testing the code and the only problem i am getting is it does not complete the macro -(runtime error 9 - subscript out of range) on this line:
Set rngFound = Columns("A:A").Find( _
What:=strPart, After:=Range("A" & r), LookIn:=xlValue, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)