hi,
i have two sheets....1 and 2
in sheet1, i have data in E3:BX300......
what i need to do is column by column copy the columns in sheet1 and place them in sheet2 starting in cell E3.
So far, i ihave this code....however, i don't know how to change the column in sheet1 for each i
Thanks for any help in advance.
i have two sheets....1 and 2
in sheet1, i have data in E3:BX300......
what i need to do is column by column copy the columns in sheet1 and place them in sheet2 starting in cell E3.
So far, i ihave this code....however, i don't know how to change the column in sheet1 for each i
Thanks for any help in advance.
Code:
Sub copy()
Dim i As Integer
For i = 1 To 71
Sheets("sheet1").Select
Range("E3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.copy
Sheets("sheet2").Select
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub