copy B column to all sheets with any updates

hello all, newbie here, can you help please?
I want the B column on sheet one to be copied to all sheets and any new ones that are added, also to update all sheets if someone adds to sheet one column B ,
so work bookwill work like this, it has for example three sheets, on sheet one column B1[A],B2[B],B3[C], i would like this to be automaticly copied to all existing and if i add a new sheet it will also copy column B to it ,
if a user adds items to column B on sheet one then it will automaticaly up date ALL sheets , how do i achieve this please?

hello, I have found this code that does what I want,

Dim ws As Worksheet
Dim i As Double
i = 0
Dim bletter As Boolean

For Each ws In ThisWorkbook.Worksheets

If ws.Name <> "master totals" Then
bletter = IsNumeric(ws.Range("B1").Value)
If bletter = True Then
i = i + ws.Range("B1")
End If
End If

Next
Sheets("master totals").Range("B1") = i

which does the job, BUT can this also be modified to work on rows as well? so it goes to each sheet starts at B1 thenB2,B3 etc and loops can a loop be put on this so on each sheet will look at cell A1 if it has a value then it will add value of B1 to "master totals" sheet then go on to A2 until it comes to a cell in A column that is empty and stops , then goes on to the next sheet
Attachment 641442
so A40 has a value so loop will run but when it comes to A44 this is empty so it will stop running and go on to the next sheet .

I hope this is clear?

thank you for your help