Office 2016 - ERROR 9 MACRO

Question

Ejecuto la siguiente macro y me da error 9, alguien me puede ayudar a solucionar el priblema. Es una macro calcada de un video de You tube y he seguido todos los pasos. Consiste en hacer un registro de datos en una página, y que con l macro se copien en otra página traspuestos insertados en una fila.

Sub FIN()

'

' FIN Macro

'

'

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow

    Sheets("REGISTRO").Select

    ActiveCell.Offset(5, 2).Range("A1,A3,A5,A7,A9,A12").Select

    ActiveCell.Offset(16, 2).Range("A1").Activate

    Selection.Copy

    Sheets("DATOS").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=True

    Sheets("REGISTRO").Select

    ActiveCell.Offset(-9, 0).Range("A1").Select

    Application.CutCopyMode = False

    ActiveCell.FormulaR1C1 = ""

    ActiveCell.Offset(2, 0).Range("A1").Select

    ActiveCell.FormulaR1C1 = ""

    ActiveCell.Offset(2, 0).Range("A1").Select

    ActiveCell.FormulaR1C1 = ""

    ActiveCell.Offset(2, 0).Range("A1").Select

    ActiveCell.FormulaR1C1 = ""

    ActiveCell.Offset(3, 0).Range("A1").Select

    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

    ActiveCell.FormulaR1C1 = ""

    ActiveWorkbook.Save

End Sub

Answer 1

en el libro en el que está la macro:

¿tienes la hoja REGISTRO?

¿tienes la hoja DATOS?

¿en la selección que has marcado hay algún hiperenlace?