[/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
Bookmarks