@Eric W that code worked great, thanks! I updated it to include NxtRow so that it will continue to sum as data is added.
NxtRw = .Cells(Rows.Count, 1).End(xlUp).Row + 1
MyTotal = 0 For Each ws In Worksheets
If ws.Name <> "Sheet1" Then MyTotal = MyTotal + ws.Range("B" & NxtRw)
Sheet1.Range("B" & NxtRw) = MyTotal