VBA update macro copy paste with no formating

[paroduso]

Hi everyone...i need help with this code...

Sub CommandButton3_Click()

Sheets("sheet1").Range("a1").Copy
With Sheets("sheet2").Range("a" & Rows.Count).End(xlUp).Offset(1)

.PasteSpecial (xlPasteValues)

End With

End sub

im using this vba code to copy from sheet1 cell a1 value to sheet2 collum A last row...working fine...but i dont want the formating of the cell...just the value.
with this code if i paint the cell in sheet1 a1 the code paint in sheet2 the copied cell and i dont want that.

Thanks.

 

[Fluff]

That code will copy the value only without any formatting.