VBA to copy X rows of data from Excel to Word table

Hi

I have some experience in using Excel but I have little experience in using VBA.

I am trying to find a way to copy rows of data from a Excel 2007 spreadsheet into a table in a Word template using VBA.

There are 10 columns in the spreadsheet but the number of rows could vary from between 1 to 30 each time it is created. There are also 5 rows of report information above the data, which I would want to ignore (I have added an example of what the spreadsheet might look like).

I have found various posts which discuss ways to copy data from Excel to Word , but nothing quite fits with what I am trying to do.

I would appreciate any guidance on how to do this.

GN1664

' In the VBE go to Tools -> References
' Check: Microsoft Word 12.0 Object Library
Sub CreateTableInWord()
    Dim wdApp As Word.Application
    Dim wdDoc As Document
    Dim wdRg As Word.Range
    Dim nLastRow As Long
    
    Set wdApp = New Word.Application
    Set wdDoc = wdApp.documents.Add
    wdApp.Visible = True
    Set wdRg = wdDoc.Range
    
    nLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A5:J" & nLastRow).Copy
    wdRg.Paste
End Sub