help code transfer data from sheet to another sheet

[abdelfattah]

hi guy i hope help me the code is somthing wrong i try to transfer data of invoice from sheet1 to sheet 2 but give me this mistake RED LINE
AND GIVE ME RUN TIME ERROR13




Option Explicit
Sub transferData()
Dim i As Long
Dim lastrow As Long
Dim erow As Long
lastrow = Sheets("SHEET1").Range("a" & Rows.Count).End(xlUp).Row
For i = 3 To lastrow
erow = Sheets("SHEET2").Range("a" & Rows.Count).End(xlUp).Offset(1, 0).Row
Range(Cells(i, 1), Cells(i, 6)).copy Destination:=SHEET2.Cells(erow, 1)
Next i
SHEET2.Cells(erow, 6) = WorksheetFunction.Sum(Worksheets(SHEET2).Range("e3:e35"))
End Sub

 

[JLGWhiz]

Looks like you might need some quotation marks around SHEET2.

SHEET2.Cells(erow, 6) = WorksheetFunction.Sum(Worksheets([COLOR=#0000ff]"[/COLOR]SHEET2").Range("e3:e35"))

When you use it as code name SHEET2, you do not use the quotation marks, but when you use it with Sheets() or Worksheets() you do need them.

 

[abdelfattah]

You're right thank you but still problem it doesn't transfer all data some cells and ranges are missed

 

[JLGWhiz]

Change this:

erow = Sheets("SHEET2").Range("a" & Rows.Count).End(xlUp).Offset(1, 0).Row

To this:

erow = Sheets("SHEET2").Range("A:F").Find("*", , xlValues, xlPart, xlByRows, xlPrevious).Offset(1).Row

It will give you a more reliable row number to paste to. You could be overwriting some data by using the other method of getting the row number, if column A is not always the column with data in the last row.

 

[abdelfattah]

thank so much more again your code work some cells not all i attach 3 parts of images my file maybe you help me

https://i.postimg.cc/rwJpt7Z5/1.jpg
https://i.postimg.cc/DzkSqq7K/2.jpg
https://i.postimg.cc/zvCNYR9T/3.jpg

 

[JLGWhiz]

Now I am confused. Your code shows that you are trying to copy ranges from columns A through F, but the screen shots show all of your data begins in column E. If you have no data in columns A:F then that is why you are not gettihng anything copied over. I don't believe I can help any further with this, so I am dropping off of this thread.
Regards, JLG

 

[abdelfattah]

actually i need this column to fill some data but why not code doesn't work it supposing to work transfering cells not only value even colors supposed without any value in cells

 

[abdelfattah]

by the way i changed the range (a:e) this is the same result don't change anything