Updata new data between sheets by VBA

I have a code on the Excel file.

I have some problems

1. I have to add a contract number on Sheets("Sub1").[B1], Sheets("Sub2").[B1] and Sheets("Sub3").[B1] so the data will appear. If I just add the contract number in Sheets("Sub1").[B1], the data on Sub2, Sub3 won't appear.

I want to add the contract number in Sheets("Sub1").[B1], the data in Sub1, Sub2, Sub3 will appear.

2. It's about update button in Sub3. I have just update the new data on B4:B30, but I want that When I add the new data on F4:F11 so the data will be updated on Total.

Thanks for helping.

Please take a moment to read the forum rules and then amend your thread title to something descriptive of your problem - not what you think the answer might be. (think google search terms?). Once you have done this please send me a PM and I will remove this request. (Also, include a link to your thread - copy from the address bar)

Many members search our previous posts, and thread titles play a big part of the search. I doubt anybody would do a search based on your title?

To change a Title on your post, click EDIT POST then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(note: this change is not optional )

Don't quote whole posts -- it's just clutter. If you are responding to a post out of sequence, limit quoted content to a few relevant lines that makes clear to whom and what you are responding.