Making list from varius data

[dujo.malbasa]

Hello everybody,

Please help me on my problem, I am new to macro definition so don't be
surprised if I don't know some essentials. Well, I took some online
tutorials, and tried to learn macros myself, but it is more difficult
job that I thought it will be. Any advices are welcome.

Here is my problem:
I have multiple existing data in my worksheet, workbook, same thing. I
would like to have an option by clicking on various buttons to make a
list in new sheet or workbook.
In fact I don't know how to make order to paste copied data bellow in
last empty row.

For example:
Sheet1 A B C D
1 e f 3 d
2 g l 6
3 d 6 2

Sheet2 A B C D
1 z h f l
2 5 5 5
3 g h 3
4 d 6 2

ecc. ->different number of rows occupied

In sheet3 I have buttons to call different sheets to be listed one
bellow other in Sheet4- for these two it should be like:

Sheet4 A B C D
1 z h f l
2 5 5 5
3 g h 3
4 d 6 2
5
6 z h f l
7 5 5 5
8 g h 3
9 d 6 2


Thanks a lot in advance!

Best regards,
Dujo

 

[Don Guillett]

How about something like this from ONE button?

Sub putsheetdataonsheet4()
Set ds = Sheets("Sheet4")
ms = InputBox("which sheet to copy")'ask for sheet
With ds
Sheets(ms).Range("a2:d" & .Cells(Rows.Count, "a").End(xlUp).Row).Copy _
.Range ("a" & .Cells(Rows.Count, "a").End(xlUp).Row + 1)
End With
End Sub