The following snippet works also:

    With ActiveSheet
        .Paste Destination:=Range("A1")
    With ActiveSheet
        .Paste Destination:=.Range("A1")