Pilot5000
03-04-2014, 12:41 PM
I got the sheet (sheet2)with certain data, I also have the following code that suppose to copy the data from sheet(sheet2) to sheet(sheet1), the funny thing is that as long as i place the data in Sheet (sheet2) starting in column E the code work fine as long, but the moment I try to start the data column A the data is copied but I get Run time error 104 with the message "run time error 104 copy area and paste area are not the same size" any idea why and suggestion how to fix that ?????? my code is
Sub COPY_1()
Dim i As Integer
Application.ScreenUpdating = False
Worksheets("Sheet2").Select
For i = 5 To 23 Step 2
If i <> 17 Then Range(Cells(2, i), Cells(2, i).End(xlDown).Offset(, 1)).Copy Destination:=Worksheets("sheet1").Range("A" & Rows.Count).End(xlUp).Offset(3)
Next
Application.ScreenUpdating = True
End Sub
Sub COPY_1()
Dim i As Integer
Application.ScreenUpdating = False
Worksheets("Sheet2").Select
For i = 5 To 23 Step 2
If i <> 17 Then Range(Cells(2, i), Cells(2, i).End(xlDown).Offset(, 1)).Copy Destination:=Worksheets("sheet1").Range("A" & Rows.Count).End(xlUp).Offset(3)
Next
Application.ScreenUpdating = True
End Sub