After copying in Macro - come back to previous sheet

... Actually ... that's not it ... I simplified the code to test as:

Sub AutoShape4_Click()

Dim Ws As Worksheet
Dim Rng1 As Range, Rng2 As Range

    Range("N5").Value = 1
    Range("Q5").Value = 1
    Set Ws = Worksheets("Sheet2")
    Set Rng1 = Range("C28:C33")
    Set Rng2 = Ws.Range("C28:C33")
    
    ActiveSheet.Rng1.Copy Destination:=Rng2

End Sub

But it doesn't like that either, which I didn't expect ... sorry