Kopier celle fra excel til word VBA

Sub KopierTilWord()
    Dim WordApp As Object
    Dim WordDoc As Object
    Dim WordTable As Object
    Dim ExcelRange As Range
   
    ' Åbn Word-programmet
    On Error Resume Next
    Set WordApp = GetObject(Class:="Word.Application")
    On Error GoTo 0
   
    If WordApp Is Nothing Then
        ' Hvis Word ikke er åbent, oprettes en ny instans af Word
        Set WordApp = CreateObject(Class:="Word.Application")
        WordApp.Visible = True ' Gør Word-vinduet synligt
    End If
   
    ' Åbn eller opret et Word-dokument
    Set WordDoc = WordApp.Documents.Add
   
    ' Definer tabellen og cellen, hvor værdien skal indsættes
    Set WordTable = WordDoc.Tables(1) ' Hvis der er flere tabeller, kan du ændre tallet her
    Set ExcelRange = ThisWorkbook.Sheets("ArkNavn").Range("M18") ' Erstat "ArkNavn" med navnet på dit Excel-ark
   
    ' Kopier cellens værdi til udklipsholderen
    ExcelRange.Copy
   
    ' Indsæt værdien i Word-tabellen
    WordTable.Cell(17, 2).Range.PasteSpecial
   
    ' Rens udklipsholderen
    Application.CutCopyMode = False
   
    ' Luk Word-dokumentet
    WordDoc.Close SaveChanges:=False
   
    ' Luk Word-programmet
    WordApp.Quit
   
    ' Ryd hukommelsen
    Set WordTable = Nothing
    Set WordDoc = Nothing
    Set WordApp = Nothing
End Sub

Den laver fejl i det gule ?

    Dim oWord As Object
    Dim oWordDoc As Object
    Dim i As Integer
    Dim WordTable As Object
    Dim ExcelRange As Range
    Dim oTable As Table
   
 
    On Error GoTo myOpen
    navn = CurDir()
   
    Set oWord = GetObject(, "Word.application")
    GoTo further
   
myOpen:
    Set oWord = CreateObject("Word.application")
   
further:
    oWord.Documents.Open "c:\katalog.docx"
    oWord.Visible = True
    Sheets("Data").Visible = True
    Sheets("Data").Activate
   
  '------------------
    Set WordTable = oWordDoc.Tables(1) ' Hvis der er flere tabeller, kan du ændre tallet her
    Set ExcelRange = ThisWorkbook.Sheets("Data").Range("S23")
 
    ' Kopier cellens værdi til udklipsholderen
    ExcelRange.Copy
 
    ' Indsæt værdien i Word-tabellen
    WordTable.Cell(1, 1).Range.PasteSpecial