Directly Copy A Range from One Sheet to Another

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

Code:

---

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:

Code:

---

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

---

perhaps something like this:

Code:

---

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

---

Code:

---

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

---