maybe

Sub scalp_line4_button_click()
Range("B6:B16").Copy
Sheets("CLOSED").Range("a65536").End(xlUp) _
..Offset(1).PasteSpecial Paste:=xlValues
Range("b6:d6,f6:k6").ClearContents
End Sub

--
Don Guillett
SalesAid Software

"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 '
--------------------------------------------------------------