Erro de tempo de execução 438 - objeto não aceita essa propriedade ou método

Boa noite, estou tentando criar uma macro para registro de estoque mas está dando erro.
Alguém consegue me ajudar, por favor.

ERRO DE TEMPO DE EXECUÇÃO 438 - OBJETO NÃO ACEITA ESSA PROPRIEDADE OU MÉTODO

Sub Macro1()
'
' Macro1 Macro
'

'
   Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
       :=True
   Rows("7:7").Select
   Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
       :=True
   Range("D12").Select
   Selection.Copy
   Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
       :=True
   Range("B7").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Range("C8").Select
   Application.CutCopyMode = False
   Selection.AutoFill Destination:=Range("C7:C8"), Type:=xlFillDefault
   Range("C7:C8").Select
   Range("C7").Select
   Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
       :=True
   Range("F12").Select
   Selection.Copy
   Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
       :=True
   Range("D7").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
       :=True
   Range("F12").Select
   Application.CutCopyMode = False
   Selection.ClearContents
   Range("D12").Select
   Selection.ClearContents
End Sub


O erro aponta para a primeira linha:
[b]Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
       :=True