copy the B column from all Sheets and dump the information in a "totals" sheet B column

Hi
Yes it can be done. Pls post a sample data file

Try...

Make sure you have a sheet titled Total and also assumes you have a header row therefore starts at row 2.

Sub movedata()
    Dim ws As Worksheet
    Dim LRsrc As Long
    Dim LRdst As Long
    For Each ws In ActiveWorkbook.Worksheets
        With ws
            If .Name <> "Total" Then
                LRsrc = ws.Range("B" & Rows.Count).End(xlUp).Row
                LRdst = Sheets("Total").Range("B" & Rows.Count).End(xlUp).Offset(1).Row
                .Range("B2:B" & LRsrc).Copy Destination:=Sheets("Total").Range("B" & LRdst)
            End If
        End With
    Next ws
End Sub

This is not clear to me. Can you post a sample mocked up workbook to ensure we get the best solution? A before and after example helps tremendously

This is weird, because I tried to reproduce the scenario in another file, but it works perfectly there.
Anyway, I will try to figure out what's happening in my sheet, since i have a bunch of other macros running, but basically this is a screenshot with the result from my particular file:
123.jpg

One last thing, do you think there is a way around the "Total" name, since one of my very important scripts is to have the number of cells, that have certain information, being displayed in the Sheet's name, so for example - the first time the sheet is named Total, but after I run the macro, if I have a total of 123 tickets, it will get renamed to "Total(123)"?
Thanks in advance for the assistance, I appreciate it very much!

Yes this is possible, but I'm headed out the door right now for work but can get back to this in about an hour. Hope that will work for you!

Not sure where you are getting your tickets from, but after the macro runs, the sheet will be renamed with the value in Range("Al").

Example: If you have 123 in Range("A1") then you would end up with >> Total (123)

S

ub MoveData()
    Dim ws As Worksheet
    Dim LRsrc As Long
    Dim LRdst As Long
    Const StartRow As Long = 2
    Const ColLet As String = "B"
    For Each ws In ActiveWorkbook.Worksheets
        With ws
            If .Name <> "Total" Then
                LRsrc = ws.Range(ColLet & Rows.Count).End(xlUp).Row
                LRdst = Sheets("Total").Range(ColLet & Rows.Count).End(xlUp).Offset(1).Row
                .Range(.Cells(StartRow, ColLet), .Cells(LRsrc, ColLet)).Copy Sheets("Total").Range("B" & LRdst)
            End If
        End With
    Next ws
    Application.Goto Sheets("Total").Range("A1")
    With Sheets("Total")
        .Name = "Total (" & .Range("A1") & ")"
    End With
End Sub