Thread: With and End with, Offset Multiple sheets

Okay so I have this code that copies the contents of one cell (A1) and pastes it into anouther (B1). the next time the code is ran, (A1) will be pasted into (B2)
See Code below:

With Sheet1
    .Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0).Value = .Range("A1").Value
End With

I have had to change a few things around due to expanding.

Is there anyway I can do this where The cell that's being copied is on a different sheet than the destination of the paste?


Help please!

Does something like the following help?

Sub Crebsington()
    Dim Ws1 As Worksheet, Ws2 As Worksheet
    
    Set Ws1 = Worksheets("Sheet1")
    Set Ws2 = Worksheets("Sheet2")
    
    Ws1.Cells(Ws1.Rows.Count, 2).End(xlUp).Offset(1, 0).Value = Ws2.Range("A1").Value

End Sub