Excel Add Rows and Value from Excel Table to Specific Word Table Template

Question

Thank you in advance, I need help in completing the below code, the code currently works to add the number of rows in the Table(3) of my word template as per the available rows in excel table, the word template have one row to begin with.

How can I pass the value from excel table range Set Rng = wsSheet.Range("A2:C" & lastrow)

Option Explicit

Sub CopyToWordTemplate()

 Const stWordDocument As String = "TemplateSD.docm"
 Dim intNoOfRows
 Dim objWord As Word.Application
 Dim objDoc As Word.Document
 Dim wbBook As Workbook
 Dim wsSheet As Worksheet
 Dim lRow, i, lastrow, lastcol As Long
 Dim vaData As Variant
 Dim Rng As Range

  Set wbBook = ThisWorkbook
  Set wsSheet = wbBook.Worksheets("Transmittal")

  lastrow = wsSheet.Range("A2").End(xlDown).Row
  lastcol = wsSheet.Range("C2").End(xlToRight).Column

  Set Rng = wsSheet.Range("A2:C" & lastrow)

  Rng.ClearContents

  Copy_Criteria_Text

  lRow = wsSheet.Range("A2").End(xlDown).Row

  intNoOfRows = lRow - 1

 Set objWord = New Word.Application
 objWord.Visible = True
 Set objDoc = objWord.Documents.Open("\\Dn71\dn071\DOCUMENT CONTROL\Common\X- 
 Templates\Document Control\" & stWordDocument)

  With objWord.ActiveDocument
     .Bookmarks("Description").Range.Text = wsSheet.Range("D1").Value
     .Bookmarks("RevNumber").Range.Text = "C" & wsSheet.Range("E1").Value
     .Bookmarks("SubmittalNumber").Range.Text = "DN071-P02-CRC-GEN-PMT-SDA-" & wsSheet.Range("F1").Value
  End With

 For i = 2 To intNoOfRows

   objDoc.Tables(3).Rows.Add

 Next

  Set objWord = Nothing
  
 End Sub