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:

Sub Copy_range()


Dim r1 As Range
Dim a1() As String
Dim Col_1 As String

Set r1 = ActiveSheet.Cells.Find("Spec. 012", LookIn:=xlValues, lookat:=xlWhole)

If (Not IsEmpty(r1.Value)) And (Not IsError(r1.Value)) Then
    a1 = Split(r1.Address, "$")
    Col_1 = a1(1)
End If

Debug.Print Col_1

ActiveSheet.Range(Col_1 & "14:" & Col_1 & "100").Copy

End Sub

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.

...
Set r1 = ActiveSheet.Cells.Find("Spec. 012", LookIn:=xlValues, lookat:=xlWhole)
If r1 Is Nothing Then Exit Sub
...

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:

Option Explicit

Sub Copy_range()

Dim awf As WorksheetFunction: Set awf = WorksheetFunction
Dim aws As Worksheet: Set aws = ActiveSheet
Dim rRow13 As Range
Dim lMatch As Long

With aws
    Set rRow13 = .Rows(13)
    On Error Resume Next
    lMatch = 0: lMatch = awf.Match("Spec. 012", rRow13, 0)
    On Error GoTo 0
    If lMatch <> 0 Then
        .Range(.Cells(14, lMatch), .Cells(100, lMatch)).Copy
    End If
End With

End Sub

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.

IIf Not r1 Is Nothing Then

    a1 = Split(r1.Address, "$")
    Col_1 = a1(1)
    
End If