[/QUOTE]
Sub aaa()
  Dim CalcSH As Worksheet
  Set CalcSH = Sheets("Sheet2")
  For i = 4 To Cells(5, Columns.Count).End(xlToLeft).Column
    CalcSH.Range("C5:C9").Value = Range(Cells(5, i), Cells(9, i)).Value
    Cells(15, i).Resize(5, 1).Value = CalcSH.Range("E5:E9").Value
  Next i
End Sub
[/QUOTE]

Hey rylo,
Thanks for the post. This code looks like it will help a lot. Thanks. I do need to make a couple of modifications so maybe you can help me understand a couple of things. In the For loop, you're eliminating the need to copy and paste, right? I am starting to understand.

What does this line of code do? I see it's taking the values from the calc sheet, but I don't understand the Resize command.
    Cells(15, i).Resize(5, 1).Value = CalcSH.Range("E5:E9").Value
How do I run this code so that it recognizes an empty cell and stops?

This really helps a lot.

Best regards,

-gshock