Office: (Office 2019) kopierte Zellen definiert einfügen

Hallo zusammen. Ich habe einen VBA Code der mir aus einer Excel-Tabelle nach Word kopiert. Jetzt möchte ich um "Platz" zu sparen im Word-Dokument bei Formatvorlage das Format "Kein Leerraum" in den Zellen festlegen. Kann mir da jemand weiter helfen? Mein Code bisher:

Code:

 Private Sub CommandButton2_Click()
    Dim objWord As Word.Application
    Dim objDoc As Word.Document
    Dim Lzeile As Long
    Dim rng1 As Range, rng2 As Range, rngMerge As Range

    ' Neues Word-Dokument erstellen
    Set objWord = New Word.Application
    Set objDoc = objWord.Documents.Add

    ' Zusammenführen und kopieren der Daten
    With Sheets("Tabelle4")
        Lzeile = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set rng1 = .Range("A1:C" & Lzeile)  ' Spalte "A" bis "C"
        Set rng2 = .Range("D1:E" & Lzeile)  ' Spalte "D" bis "E"
    End With
    Set rngMerge = Union(rng1, rng2)

    ' Den zusammengeführten Bereich kopieren und im Word-Dokument einfügen
    rngMerge.Copy
    With objWord
        .Visible = True
        .Selection.Paste
        .ActiveDocument.PageSetup.Orientation = wdOrientLandscape ' Querformat
        .ActiveDocument.Paragraphs.Last.Range.Delete ' Löschen des Leerraums am Ende
    End With

    Application.CutCopyMode = False

    Set objWord = Nothing
    Set objDoc = Nothing
End Sub

 

Moin!
Abseits des Problems.
Ich musste ob des Excel-Parts des Codes schmunzeln.
Statt:

Code:

    With Sheets("Tabelle4")
        Lzeile = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set rng1 = .Range("A1:C" & Lzeile)  ' Spalte "A" bis "C"
        Set rng2 = .Range("D1:E" & Lzeile)  ' Spalte "D" bis "E"
    End With
    Set rngMerge = Union(rng1, rng2)

    ' Den zusammengeführten Bereich kopieren und im Word-Dokument einfügen
    rngMerge.Copy

hätte ich folgendes genommen:

Code:

With Sheets("Tabelle4")
   .Range(.Cells(1), .Cells(.Rows.Count, 1).End(xlUp).Offset(, 4)).Copy
End With

Word-Code gehört ja eher ins Word-Forum, dennoch:
Hast Du mal den Rekorder bemüht?

Gruß Ralf