Try

Sub copy()
Dim myRange As Range
Set myRange = Sheets("sheet1").Range("C1:C20") ' Change to suit
For Each c In myRange
c.Offset(0, 1).Value = c.Value
Next
End Sub


Alt +F11, Insert module and paste code in.

Mike

"Piyush" wrote:

Hi
I am new to vba and macros. need urgent help
In Sheet 1, I am trying to copy a cell C1 and paste as values in cell D1 and
then from C2 to D2. The function needs to progress in this fashion one by
one. I want to create a macro and still be able to run it from a different
worksheet say Sheet 2.

Kindly help

Regards
Piyush