Scott,

Try this

Sub scalp_line4_button_click()
Range("b6:l6").Copy
Sheets("CLOSED").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Range("b6:d6").ClearContents
Range("f6:k6").ClearContents

End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"scott23" wrote in message
m...
Hi,
I have the following macro that copies data from one line of a
worksheet and the pastes it to another worksheet immediately after the
last line that contains data. It then erases only certin cells of the
1st worksheet where it copied the data from.

My question is, how can i just tinker with this so that it does a
paste special 'values only' rather than a full paste.

Any help would be greatly appreciated.
Scott
------------------------------------------------------------
Sub scalp_line4_button_click()
Range("b6:l6").Copy Destination:= _
Sheets("CLOSED").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)
Range("b6:d6").ClearContents
Range("f6:k6").ClearContents

End Sub '
--------------------------------------------------------------