Need help with repeating macro - turning rows of data into columns

[bimmerman]

Hello all! Need help trying to turn some output into something usable. I have multiple rows of data for each record, of which there are thousands of records. The key is the 'ID' field which is the last line of output. I was trying to come up with a way to have the ID inserted in the column next to the output and then try to figure out next steps. Ideally I'd like a column for each of the four data points but have no idea how to go about doing that

Output:
Submitted: "Y"
Matched: "Y"
Campus: "123"
ID: 001
Submitted: "Y"
Matched: "Y"
Campus: "123"
ID: 002
Submitted: "Y"
Matched: "Y"
Campus: "123"
ID: 003


My attempt but it stops after the first 2 sections of data. I was hoping it would keep working it's way down but it doesn't.
ActiveCell.FormulaR1C1 = "=RIGHT(R[3]C[1],10)"
Range("I7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-1]C"
Range("I8").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-1]C"
Range("I9").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-1]C"
Range("I10").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-1]C"
Range("I11").Select
ActiveCell.FormulaR1C1 = "=RIGHT(R[3]C[1],10)"
Range("I12").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-1]C"
Range("I13").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-1]C"
Range("I14").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-1]C"
Range("I15").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-1]C"
Range("I16").Select

[TMS]

Fast answers need visual help. Please read the yellow banner at the top of this page on how to attach a file.

[bimmerman]

Fast answers need visual help. Please read the yellow banner at the top of this page on how to attach a file.

Thank you, just updated the original post with a sample file!

[protonLeah]

Please Login or Register  to view this content.

Notice I used code tags vs. your first post

[bimmerman]

OMG you are amazing thank you so much for turning that around so quickly!!! That's exactly what I needed!!

Once I have some time I'm going to really analyze and learn what you did there so I can be better with it next time!

[sintek]

Just for the fun of it...Another Option...

Please Login or Register  to view this content.

[jolivanes]

Further to Post #4.

Attachment 776144