FIND i VBA - med tilføj funktion

Hej Alle sammen

Jeg har denne kode:

Sub Find_First()
    Dim FindString As String
    Dim Rng As Range
    FindString = Sheets("Skabelon").Range("C3").Value
    If Trim(FindString) <> "" Then
        With Sheets("PF").Range("A1:BX1")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByColumns, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
           
            Else
                MsgBox "Nothing found"
            End If
   
        End With
    End If

    ActiveCell.Offset(0, 65).Value = "=Skabelon!A83"
End Sub

Lige nu finder den bare den rigtige kolonne. Jeg vil dog gerne have den laver dette når rigtige kolonne er fundet:

ActiveCell.Offset(0, 65).Value = "=Skabelon!A83"

Men kan ikke få det til at fungere. Kan i hjælpe?