I need to copy a range to another area. I am trying:

Sheets("sheet1").Range(Cells(1, 1), Cells(3, 3)) =
Sheets("sheet2").Range(Cells(1, 1), Cells(3, 3)).Value

I can get it this way, but seems like too much code and slower. I have come
accustomed to using the above 1 liner, but this example, for some reason,
doesn't work.

Sheets("sheet2").Range(Cells(1, 1), Cells(3, 3)).Copy
Sheets("sheet1").Cells(1, 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

any thoughts? thanks, mike allen