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