code transfer all of data & coordinate from sh1 to sh2

[abdelfattah]

hi guys
i have some datas and coordinates in sheet1 and i have macro buttons to transfer to sheet2
here my code doesn't well work transfer some of data but not all i would in every time to fill data in sheet1 transfer to sheet2 every thing data an coordinate like color


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

 

[mumps]

Try:

Sub transferData()
    Dim i As Long
    Dim Lastrow As Long
    Lastrow = Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row
    For i = 3 To Lastrow
        Range("A" & i).Resize(, 6).Copy Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Offset(1, 0)
    Next i
    Sheet2.Cells(Sheet2.Rows.Count, "E").End(xlUp).Offset(1, 0) = WorksheetFunction.Sum(Sheets("Sheet2").Range("E2", Sheets("Sheet2").Range("E" & Sheets("Sheet2").Rows.Count).End(xlUp)))
End Sub

 

[Fluff]

Or maybe

Sub transferData()
   Dim Lastrow As Long
   
   Lastrow = Sheets("sheet1").Range("a" & Rows.Count).End(xlUp).Row
   Sheets("Sheet1").Range("A3:F" & Lastrow).Copy Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
   With Sheets("Sheet2").Range("E" & Rows.Count).End(xlUp).Offset(1)
      .Value = WorksheetFunction.Sum(Range(.Parent.Cells(3, "E"), .Offset(-1)))
   End With
End Sub

 

[abdelfattah]

thanks fluff it's perfect code but still one problem the row what contains total not show in sheet2

 

[abdelfattah]

thanks mumps but the code doesn't work it's the same what i have i'm like you actually newer in vba exel but i love this programming language

 

[Fluff]

The total should appear in column E after the last row of data, are you saying that cell is totally empty?

 

[abdelfattah]

The total should appear in column E after the last row of data, are you saying that cell is totally empty?

yes there is no last row the total is not exist i have 3 row invisible subtotal,shipping and total i no know why

 

[Fluff]

If you have hidden rows below the data the total will be in the first of them

 

[abdelfattah]

If you have hidden rows below the data the total will be in the first of them

i made sure there is no hidden row

 

[abdelfattah]

anybody help me?