Find value and if exists copy specific range

Hello,

I would like to ask you for help with my VBA code. I need to find value "Spec 012" in row 13 and if this value exists then it should save address of column and copy range 14:100 in that column. If sheet doesn't contain value "Spec 012" then do nothing. I have created this code so far:

Please Login or Register  to view this content.

If sheet contains value "Spec. 012" then it works fine but if doesn't then it gets an error. I know that problem is in IF condition, but I don't know how to fix it.
Sorry for lame question, but I am newbie in VBA.

Please Login or Register  to view this content.

And if I don't want to exit sub? If r1 is nothing I want to continue in searching for other values ("Spec. 013",...)

Thank you. Your alternative approach works great.

Just for the record I include it into this thread:

Please Login or Register  to view this content.

But my first aproach with added "If Not r1 is nothing then..." doesn't work. Maybe it is because if FIND function doesn't find value then it is not "nothing" but error.

Please Login or Register  to view this content.