Hello Troy,
I am not very familiar with working in Word but there are a few things with your code that are worthy of review. However I need to understand a bit more what exactly it is trying to do.
It seems that you are looping through a column of data on one sheet and firstly reproducing that data one piece at a time in cell B2 on another sheet. However in the code shown there does not appear to be any purpose in doing this, can you explain further?
Then it seems that you wish to update something in a Word document and it would appear that this is some pre-existing Field. Or do you wish to add a new field for each piece of data that comes from the excel sheet?
I realise this code is designed to write data into a word table but it might be able to be modified to do what you want when we know what you want and it also shows some good principles in avoiding the use of select and copy/paste.
Sub test()
Dim wdDoc As Word.Document, wdApp As Word.Application
Dim tbl As Word.Table
Dim FileName As String
Dim iRow As Integer
Dim iCol As Integer
FileName = "C:\_stuff\Local Files\temp.docx"
Set wdApp = New Word.Application
wdApp.Visible = True 'add this to see the Word instance and document
Set wdDoc = wdApp.Documents.Open(FileName)
Set tbl = wdDoc.Tables(1)
' Loop through columns and rows
For iRow = 1 To 2
For iCol = 1 To 3 ' or however many columns you have
With Worksheets("Sheet1").Cells(iRow, iCol)
tbl.Rows(iRow).Cells(iCol).Range.Text = .Value
End With
Next iCol
Next iRow
wdDoc.Close False ' close doc and save changes
wdApp.Quit 'close word (will auto-close if no open documents)
End Sub
Regards
Harry