Hello All!

What I am ultimately trying to do is extract data from many files within a folder. Within the files are "PlanNames", "IssueAge" "Duration" and "Factors." (Each file only has one plan name, but many issue ages and many factors) Each Factor represents another duration.

I am currently on my first file of 17,000+. So far I have this coding 

 Sub TerminalReserve()
Dim TermReserve As Range
Dim DurationAddress As String
Dim PlanName As String
Dim IssueAge As String
Dim Duration As String
Dim Factor As String
Dim x As Integer
Dim PlanNameAddress As String
Dim rowdum As Variant
Dim counter As Integer
Dim ReserveName As String
Dim IssueNameAddress As String
Dim IssuingAge As String
Dim FactorAddress As String



'HardCoding of PlanName and Issue Age
   ReserveName = "20000001"
   IssuingAge = "10"


'Creating Table Header
    PlanName = "PlanName"
    Range("G1").Value = PlanName

    IssueAge = "IssueAge"
    Range("H1").Value = IssueAge

    Duration = "Duration"
    Range("I1").Value = Duration

    Factor = "Factor"
    Range("J1").Value = Factor

'Creating Duration, IssueAge, & PlanName Inputs
    x = 1
    While x < 101
    PlanNameAddress = "G" + VBA.Trim(Str(x + 1))
    IssueNameAddress = "H" + VBA.Trim(Str(x + 1))
    DurationAddress = "I" + VBA.Trim(Str(x + 1))
    Range(DurationAddress).Value = x
    x = x + 1
    Range(PlanNameAddress).Value = ReserveName
    Range(IssueNameAddress).Value = IssuingAge
    Wend


'Selects TermReserve
Set TermReserve = Range("A1:E869")
TermReserve.Select

'Inputs for Factor Table

FactorAddress = "J"
For Each rw In Range("TermReserve").Rows
rowdum = rw.Value
It creates for me everything I need so far, but the factors. I am in dire need of a code that will read the row (A3:E3), (A4:E4), (A5:E5), and so on and then orderly place them into column J.

In the file is a snippet of what I have currently.Reserve Snippet.PNGReserve Snippet 2.PNG

Advice would be greatly appreciated!!







End Sub