Directly Copy A Range from One Sheet to Another

[aerodoc]

I want to directly copy a range from one sheet to another. This is a current solution, but it has some issues:


Range(Sheet1.Cells(1, 1), Sheet1.Cells(5, 5)).Copy
Sheet2.Range("A1").PasteSpecial xlPasteValues

I want to do something more like this, but it does not work as is:

Range(Sheet1.Cells(1, 1), Sheet1.Cells(5, 5)) = Range(Sheet2.Cells(1, 1), Sheet2.Cells(5, 5))

[mancubus]

perhaps something like this:
Range(Sheet2.Cells(1, 1), Sheet2.Cells(5, 5)).Value = Range(Sheet1.Cells(1, 1), Sheet1.Cells(5, 5)).Value

[snb]

Sheet2.cells(1,1).resize(5,5)=Sheet1.cells(1,1).resize(5,5).Value