Is there a way to rewrite this so that it doesnt take so much memory
and processing time to work ?

Sub scalp_line1_button_click()
Range("b3:m3").Copy
Sheets("CLOSED").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Range("b3:d3").ClearContents
Range("f3:h3").ClearContents
Range("j3:k3").ClearContents
Range("m3:m3").ClearContents

End Sub '

Thanks
scott

Scott,

If that, by itself, takes more than an eye-blink, I'd be surprised. Do you
have other workbooks open? Or a lot of formulas in a big workbook? Then
perhaps you can turn the calc mode to manual before the routine, and reset
it after.

HTH,
Bernie
MS Excel MVP

"scott23" wrote in message
m...
Is there a way to rewrite this so that it doesnt take so much memory
and processing time to work ?

Sub scalp_line1_button_click()
Range("b3:m3").Copy
Sheets("CLOSED").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Range("b3:d3").ClearContents
Range("f3:h3").ClearContents
Range("j3:k3").ClearContents
Range("m3:m3").ClearContents

End Sub '

Thanks
scott