Wofür steht das

  Application.CutCopyMode = False

???

Vielleicht liegt da mein Fehler. Ich hab es jetzt so eingebaut:

Dim appWD As Word.Application
    ' Create a new instance of Word & make it visible
    Set appWD = CreateObject("Word.Application.8")
    appWD.Visible = True
    Set WordDoc = appWD.Documents.Open("C:\...")
    Sheets("2016").Select
    Range("B" & ActiveRow).Copy
    Sheets("Angebot").Range("B11").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("H" & ActiveRow).Copy Destination:=Sheets("Angebot").Range("B18:F18")
    Range("K" & ActiveRow).Copy
    Sheets("Angebot").Range("B37").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("L" & ActiveRow).Copy
    Sheets("Angebot").Range("B38").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("R" & ActiveRow).Copy
    Sheets("Angebot").Range("B39").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Angebot").Select
    Range("A1:H70").Copy
    appWD.Selection.Paste
    If AlsWord_Checkbox.Value = True Then
        appWD.ActiveDocument.SaveAs Filename:=("C:\...)
    End If
    
    If AlsPdf_Checkbox.Value = True Then
        ' Save As Pdf-file
        appWD.ActiveDocument.ExportAsFixedFormat OutputFilename:="C:\...", _
         ExportFormat:=wdExportFormatPDF, Item:=wdExportDocumentWithMarkup, _
         OpenAfterExport:=True, IncludeDocProps:=True, UseISO19005_1:=True, _
         BitmapMissingFonts:=True, OptimizeFor:=wdExportOptimizeForPrint
        'appWD.Quit
    End If

Jetzt stürzt mein Programm aber ab, weil es Probleme mit der Zeile:

appWD.Selection.Paste

Kann mir das jemand erklären ?