Copy a Non-contiguous Range From Excel to Word

I have the following Code and I only want the Ranges that are given, but every time I use my Macro, the range C28 to H28 is also copied and pasted into the word-file.

This the Code that selects the ranges:

Dim rangeSP As Range 
Set rangeSP = Sheets("Details").Range("C27:H27") 

Dim rangeSP2 As Range 
Set rangeSP2 = Sheets("Details").Range("C29:H30") 

Dim rangeSpecification As Range 

Set rangeSpecification = Union(rangeSP, rangeSP2) 

This where it gets copied and pasted into the word file:

wordDoc.Application.Selection.Find.Execute "Where it will be put"

wordApp.Selection.MoveRight Unit:=wdCharacter, Count:=1

wordApp.Selection.TypeParagraph

rangeSpecification.Copy 

wordApp.Selection.PasteExcelTable False, True, False

I want to copy Tables from an Excel into a Word-File. So, I tried it with Union Ranges, because there are Rows in-between the Data Sets that I don't need. But when I use my Macro, the unwanted rows are also copied and pasted into the word file.

Copying and pasting multiple ranges (non-contiguous) can be tricky. Pasting such ranges within Excel sheets will be as expected. However, pasting across applications (Word or PowerPoint) will include the skipped cells.

For your situation, you have two options:

• Paste the multiple Excel ranges onto unused range on ative sheet or a new Excel sheet. Then copy the consolidated range and paste into Word.

    rangeSpecification.Copy ActiveSheet.Range("AA1")
    Application.CutCopyMode = False
    Set rngData = ActiveSheet.Range("AA1").CurrentRegion
    rngData.Copy
    wordApp.Selection.PasteExcelTable False, True, False
    rngData.Clear

• Using VBA code in Word to delete the unwanted in-between rows after pasting from Excel. (Assuming there is only one table in Word document.)

ThisDocument.Tables(1).Rows(2).Delete