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
Dim y As Integer


'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
y = 3
For Each rw In Range("TermReserve").Rows
rowdum = rw.Value

If rowdum(y, 1) >= 0 Then
Range(y, 1).Select
Selection.Cut
Range("j2").Select
ActiveSheet.Paste

Application.CutCopyMode = False


End Sub
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.
Advice would be greatly appreciated!!Macro.xlsm