Thread: With's and end withs sheets and copying.

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!

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

for example.