You can run this from any sheet.

Sub copy()
Sheets("Sheet2").Range("C10", "E10").Value = _
Sheets("Sheet1").Range("C7", "E7").Value
Sheets("Sheet2").Activate
End Sub

No need to clear/copy/paste.


Gord Dibben MS Excel MVP

On Tue, 7 Oct 2008 15:37:02 -0700, Workbook
wrote:

I am trying to create a code that, when I run it from Sheet 1, it will

1. Clear the contents in cells C10 and E10 on Sheet 2
2. Copy the contents in cells C7 and E7 on Sheet1
3. Paste the contents from cells C7 and E7 on Sheet 1 into C10 and E10 on
Sheet 2
4. Finish with Sheet 2 as the active worksheet.

Can you help me out with this?