Combine MANY tabs (with single column) into SINGLE tab.

It gave me error codes and stopped. But someone gave me the following, and it worked nicely:

Sub wigi()

With ActiveWorkbook

Set ws = .Sheets.Add(before:=.Sheets(1))

For i = 2 To .Sheets.Count
With .Sheets(i).UsedRange
ws.Cells(ws.Rows.Count, 1).End(xlUp)(2).Resize(.Rows.Count).Value = .Value
End With
Next
ws.Cells(1).Delete xlShiftUp

End With


End Sub