Setting One Cell Equal to Another

[ashleys.nl]

Hey Everyone this is my seconds post, I'm rather new to VB. I've currently set up a work book macro that copy's information from one work sheet and pastes it in several other worksheets. It works fine but because I'm using copy and paste the screen flickers between every worksheet. So I'm trying to set the value from one cell equal to the value of onther. As a test I thought it would simply be

Sub Macro1()

Worksheets("Sheet2").Cells(1, "B").Value = Worksheets("Sheet1").Cells(1, "A").Value
   
End Sub

But when I run the above macro nothing happens. So I guess what im asking is whats the most efficient way to copy data from one sheet to the next?

Thanks