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!