Sheets("sheet3").Range("A1:A3").Copy Destination:=ActiveCell

is not working