Copying and Pasting Cells from Different Sheets to One

[Jimmmy]

Hello all! I need some help! Please!

I have the following, thus far:
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Sheets("Sheet1").Select

ActiveSheet.Paste

What I'm doing is selecting all active cells with data and copying it to "Sheet1". The data is coming from four sheets, which for this is example will be called, "Large", "Medium", "Small" and "Other".

What I need help with is, on Sheet1, I need to copy and paste the selected data from "Large", then paste the selected data from "Medium" beneath "Large", then paste the selected data from "Small" beneath "Medium", and then finally, paste the selected data from "Other" beneath "Small".

Any help would be greatly apprciated! Thank you in advance!

 

[Andrew Poulsom]

Look here:

http://www.rondebruin.nl/copy2.htm

 

[VoG]

Try

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Copy Destination:=Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1)

 

[Trevor G]

You could try something like this. Long way round but it should work.

Sub copyData()
'Repeat this for the other sheet names below the line
Worksheets("Large").Select
Range("A2").Select
ActiveCell.CurrentRegion.Copy
Sheets("Sheet1").Select
Range("A1").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.PasteSpecial xlPasteAll
'--------------------------------------
Worksheets("Medium").Select
Range("A2").Select
ActiveCell.CurrentRegion.Copy
Sheets("Sheet1").Select
Range("A1").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.PasteSpecial xlPasteAll
End Sub