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