For loop within loop not working correctly

Ok, maybe "correctly" is the right word, but not as how I would like it to work.

I have a sheet (sheet7) with data that I would like to loop through and export the values in that row if the value in column A is equal to something. The loop below is almost working, but instead of checking the value in column A, exporting the row, and then moving onto the next row, it just exports that row over and over in the table, and then exports the next correct row on top of that one over and over.

NumFu = Application.CountIf(Sheet7.Range("A:A"), Sheet6.Range("A2").Value)   //// numfu is the number of times the value I'm checking for appears in column A of sheet 7. it will be the number of rows in the table

Dim R As Integer, co As Integer, TR As Integer   ////R is the number of rows in sheet7 that it loops through, TR is rows in the table being exported, ///and co is the column of the table
    Set oTable = ActiveDocument.Tables.Add(ActiveDocument.Bookmarks("Table").Range, NumFu, 4)
    oTable.Range.ParagraphFormat.SpaceAfter = 6
    For R = 1 To 55
      For TR = 1 To NumFu
        For co = 1 To 1
          If Sheet7.Range("A" & (R)) = Sheet6.Range("A2") Then
           oTable.Cell(TR, co).Range.Text = Sheet7.Range("D" & (R))
           Else
           End If
           Next
         Next  
        
        For co = 2 To 2
           If Sheet7.Range("A" & (R)) = Sheet6.Range("A2") Then
           oTable.Cell(TR, co).Range.Text = Sheet7.Range("E" & (R))
           Else
           
          End If
            Next
        Next

So it should go down column A of sheet 7, and for every Row where cell A&R = a sheet2 A2, then export the column D Row R to the table, and move onto the next row.

Thanks Kaper.

It is an excel macro that creates a table in word, so a little bit of both?

Now for the next task -

I need it to go down the column in sheet6 instead of just cell A2.

So something like this:

PR = 1
TR = 1
For R = 1 To 55
  If Sheet7.Range("A" & (R)) = Sheet6.Range("A" & PR) Then
    oTable.Cell(TR, 1).Range.Text = Sheet7.Range("D" & (R))
    oTable.Cell(TR, 2).Range.Text = Sheet7.Range("E" & (R))
    TR = TR + 1
    PR = PR + 1
  End If
Next

Basically, it needs to do exactly what you had, but instead of just for Cell A2, it's the range A2:A6

Still learning - appreciate it.

Investment Allocation Template2.docTableMakerUpload.xlsm

It didn't quite work. I've attached the 2 files.

On sheet6 is a list of "plan codes". Each code has a certain amount of records attached to it, that can be found in sheet7. I need to populate a table in word for all of the records of the first plan found in sheet6 A2, and then save it as a word document, and then recreate the table and populate it with the records for the plan in sheet6 A3, and down the column.

The code above populates the table with the records for one plan, and then just keeps repeating all of the records for only the bottom row for the other plans.


Thanks