excel vba 如何复制当前单元格和右边两个单元格的内容

Range(Cells(1, Selection.Column), Cells(3000, Selection.Column + 4)).Copy
上面这句是复制当前列和右边4列的内容，请问如何改成复制当前单元格和右边两个单元格的内容

---

Range(Cells(Selection.Row, Selection.Column), Cells(Selection.Row, Selection.Column + 2)).Copy

---

Range(Cells(1, Selection.Column), Cells(1, Selection.Column + 2)).Copy

---

用OFFSET函数

---