I've some problem making a macro that will copy the information in Column B to Column C the first time, then from Column B to Column D the next time and so on.
I do know how to make the macro working by using a the Range and Cells command like:
Counter = Sheets("Sheet1").Cells(1, 1)
Range("B1:B6000").Select
Selection.Copy
Cells(1, Counter + 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
BUT since the excel file grows by roughly 1MB each time I run the macro, I can not use it. The strange part is that the file only grows by a few bytes when I mark Column B and use the copy/paste function to Column C, D, E etc.
So, in order to save place I'm looking for a macro that can copy column. Can you help me?
andy-s
I do know how to make the macro working by using a the Range and Cells command like:
Counter = Sheets("Sheet1").Cells(1, 1)
Range("B1:B6000").Select
Selection.Copy
Cells(1, Counter + 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
BUT since the excel file grows by roughly 1MB each time I run the macro, I can not use it. The strange part is that the file only grows by a few bytes when I mark Column B and use the copy/paste function to Column C, D, E etc.
So, in order to save place I'm looking for a macro that can copy column. Can you help me?
andy-s