Copy value from sheet 1 to cell on sheet2

[ipbr21054]

Hi,

Please advise a simple code to do the following

I am trying to do the following & so far not much luck
Sheet1 copy value in cell A50

Now paste that value in sheet Sheet2 in cell B36

Both sheets are in the same workbook

I can then take it from there
Thanks

 

[rlv01]

There are many ways to do that, but here is one simple example:

Sub SimpleCopy()
    'Declare worksheet variables
    Dim srcWS As Worksheet, destWS As Worksheet
    
    'Define source worksheet
    Set srcWS = ActiveWorkbook.Worksheets("Sheet1")
    
    'Define destination worksheet
    Set destWS = ActiveWorkbook.Worksheets("Sheet2")
    
    'Perform copy
    srcWS.Range("A50").Copy destWS.Range("B36")
End Sub

 

[ipbr21054]

Thanks,
I was going round in circlers but yours works well