Variables to multiple cells on multiple sheets

I am a novice VBA programmer.

So far I have successfully created macros that move data from cell to variable and from variable to cell on a sheet.
I did this by doing something like this:

Range("f5").Select
actual_gwg(0) = Range("f5").Value
'to assign a variable a cells value

Range("r5").Select
Range("r5").Value = monthly_gwg(0)
'to assign a cell the value of a variable

Now I need to move data from sheet1 to sheets 2-9
All the data I need to move is saved to variables.

If I ran the code with the select line uncommented I get an Unable to get the selct property of the range class error
so I commented it out

Here is where the insanity part comes in.
Going through the code it works perfectly for the first variable I am assigning to a sheet2
The second variable I try to assign to a cell on sheet3 and I get an error object missing.
Here is the code:

'Sheet2.Range("b4").Select
Sheet2.Range("b4").Value = Barnegat_Yesterday_New_Goal
'Sheet3.Range("b4").Select
Sheet3.Range("b4").Value = Bridgeton_Yesterday_New_Goal

Here is a Screen Shot:
code.gif

Please help... I'd have this all done by now if I wasn't getting this error!
Thank you so much for your time in helping me in anyway possible.

I am a novice VBA programmer.

So far I have successfully created macros that move data from cell to variable and from variable to cell on a sheet.
I did this by doing something like this:

Range("f5").Select
actual_gwg(0) = Range("f5").Value
'to assign a variable a cells value

Range("r5").Select
Range("r5").Value = monthly_gwg(0)
'to assign a cell the value of a variable

Now I need to move data from sheet1 to sheets 2-9
All the data I need to move is saved to variables.

If I ran the code with the select line uncommented I get an Unable to get the selct property of the range class error
so I commented it out

Here is where the insanity part comes in.
Going through the code it works perfectly for the first variable I am assigning to a sheet2
The second variable I try to assign to a cell on sheet3 and I get an error object missing.
Here is the code:

'Sheet2.Range("b4").Select
Sheet2.Range("b4").Value = Barnegat_Yesterday_New_Goal
'Sheet3.Range("b4").Select
Sheet3.Range("b4").Value = Bridgeton_Yesterday_New_Goal

Here is a Screen Shot:
code.gif

Please help... I'd have this all done by now if I wasn't getting this error!
Thank you so much for your time in helping me in anyway possible.