Office: (Office 2019) Objektvariable Blockvariable Laufzeitfehler 91

Moin, bin mit folgendem VB Code etwas ratlos. Hab da auch nicht soviel Ahnung.
Ich sammele Veränderungen aus einer Tabelle und will sie dann per Mail versenden.
Würde mir jemand eine Lösung anbieten können? Gruß M B

Dazu wird mir seid neuestem immer der Fehler : Objektvariable Blockvariable Lauzeitfehler 91 angezeigt.
Hier muss wohl etwas im Code nicht komplett sein. (Fehlerhinweis)

Code:

 ThisWorkbook.Worksheets("Info").Range("A1").CurrentRegion.Copy
        
        .Start = Len(sMailtext)
        .End = Len(sMailtext)
        .Paste

Code:

Private Sub Änderungen_Click()

            With Application
            .ScreenUpdating = False
            .Calculation = xlCalculationManual
            .EnableEvents = False
            End With
            
     Dim sMailtext As String
    
     sMailtext = "Aktueller Änderungsumfang / Raum für weitere Informationen:  "
        With CreateObject("Outlook.Application").CreateItem(0)
        .GetInspector
         .Subject = "Änderungen"
          .Body = sMailtext & .Body
           .Importance = 1
     ' .To = "Meine@t-online.de"
      ' .CC = "anderer@gmail.com"
      .Display
       ' .Send
      With .GetInspector.WordEditor.Application.Selection
      
        ThisWorkbook.Worksheets("Info").Range("A1").CurrentRegion.Copy
        
        .Start = Len(sMailtext)
        .End = Len(sMailtext)
        .Paste
        End With
        
            With Application
             .ScreenUpdating = True
               .Calculation = xlCalculationAutomatic
            .EnableEvents = True
        End With
        
     End With
    End ' Sub
    MsgBox "fertig"
    End Sub

 

Hat sich erledigt, die Tabellenvoraussetzungen mit zugehörigem VBA Code waren nicht gegeben.