Copy - Paste Special.Values (with extra function) VBA Script needed!

Try this:

Sub Copy_Stuff()

Range("A2:D2").Copy
Range("E" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

End Sub

Dom