Private Sub CommandButton1_Click()
Worksheets("Sent to Assembly").Range("A3:B100,c3:c100").Copy
Worksheets("Parts Sent to Assembly").Range("a65000").End(xlUp).Offset(1,
0).PasteSpecial
Worksheets("Sent to Assembly").Range("a3:a100,b3:B100").ClearContents
Worksheets("Schedule").Range("d1,L1,a3:a100,b3:B100,d3:d100").ClearContents
End Sub