Macro to Copy Second Column in all sheets to new sheet

hi

please i need ur help,

i want a macro to copy second column in all sheets (around 30 sheets in one excel file) to new sheet

i used the following code

Public Sub Example()
Dim rngCopy As Range
With Sheets("Sheet1")
    Set rngCopy = .Range(.Cells(1,"B"),.Cells(.Rows.Count,"B").End(xlUp))
End With
With Sheets("SUMMARY")
    .Cells(1,.Columns.Count).End(xlToLeft).Offset(,1).Resize(rngCopy.Rows.Count).Value = rngCopy.Value
End With
End Sub

but this one will copy second column from specific sheet to specific sheet and will over-write the copied columns, i want to copy second column from all sheets to one new sheet (must be created with macro) with paste as value only.

and all copied columns in the recently created sheet should be continuously, means

second column from first sheet
1
1
1
1
1
1

then

second column from second sheet
5
4
68
4
8
8
4
4

then

second column from third sheet
54
787
4645
13258
879
34654


sorry for the long thread
many thanks in advance

hi watersev,

its exactly same as i want, the result is as follows;

1	2	3
2	2	3
3	2	3
4	2	3
5		3
6		3
7		3
8		
9		
10		
11

lets say that the result;

1	2	3
2	2	3
3	2	3
4	2	3
5		3
6		3
7		3
8		
9		2
10		2
11		2
		2
		
		
		
		
	2	
	2	
	2	
	2	
		
		
		
	2	
	2	
	2	
	2

means with a lot of blanks;
one more thing plz, another code please or continue ur same code to let the result as follows;

1
2
3
4
5
6
7
8
9
10
11
2
2
2
2

2
2
2
2



2
2
2
2
3
3
3
3
3
3
3

2
2
2
2

2
2
2
2
3
3
3
3
3
3
3

made small changes in the watersev code, this should help

Sub test()

Dim shcount As Long, lrow As Long, i As Long, rng As Range

Application.ScreenUpdating = 0

shcount = Sheets.Count
Set newsh = Sheets.Add(after:=Sheets(Sheets.Count))

lrow1 = 1
For i = 1 To shcount
    With Sheets(i)
        lrow = .Cells(Rows.Count, 2).End(xlUp).Row
        Set rng = .Range(.Cells(1, 2), .Cells(lrow, 2))
    End With
    'n = n + 1
    newsh.Cells(lrow1, 1).Resize(lrow).Value = rng.Value
    lrow1 = lrow1 + lrow
Next

Application.ScreenUpdating = 1

End Sub

Hope your problem solved!