moving data in excel

[edith]

Hello,

How can i also move data from other sheets without deleting or moving the ones that are already there?????

I already have a button in one of the sheets, lets say sheet1, and that button move the data to sheet2, right?
But I also have sheet3, sheet4, sheet5, 6, 7, 8, 9, 10, 11, 12, etc.
I also want a button in each sheet that transfers or move the data to sheet2, which is the recieving end of all sheets ( with me so far?)... hope so.

So, it's like a summary of data from all other sheets. Any help on this will be very appreciated.
:-)

[DKenny]

1/ Can you post the code you have already?

2/ Are you trying to append data from a table on each sheet to a summary sheet? If so, are the data in the same columns on each sheet?

[edith]

Hi,

The data of each of the columns are in the same way in each sheet. I mean i use the same design on each of the sheets ( I created almost 90 sheets) ... and each sheet have data that needs to be copied to the 'summary sheet".

This is the code i have for now:

Private Sub mover_Click()

Dim iCol As Integer
Dim i As Integer
For iCol = 1 To 22
i = 8
Sheet41.Range("B8:I8").Copy Sheet4.Range("A5:H5")
Sheet41.Range("B9:I9").Copy Sheet4.Range("A6:H6")
Sheet41.Range("B11:I11").Copy Sheet4.Range("A7:H7")
Sheet41.Range("B12:I12").Copy Sheet4.Range("A8:H8")

Do Until Sheet41.Cells(i & iCol).Value = ""

Sheet4.Cells(i, iCol).Value = Sheet41.Cells(i, iCol).Value = ""
i = i + 1
Loop
Next iCol

End Sub