Sheets("Data").Range("A2:C2").Value = Sheets("Sheet1").Range("A4:C4").Value

Adjust sheet names to match yours.

--
Regards,
Tom Ogilvy

"HrvojeZagi" wrote in message
...
Hi,

I would like to copy, paste data from one sheet to another sheet.
I have made command button with this code, and it doesn't work. If someone
can help?

Range("A4:C4").Select
Selection.Copy
Sheets("Data").Select
Range("A2").Select ' code stops on this sentence (even if I put
range
A2:C2)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

Thanks in advance