Private Sub CommandButton1_Click()
Worksheets("Schedule").Range("d1,a3:a100,b3:B100,d 3:d100").ClearContents
Worksheets("Sent to Assembly").Range("a3:a100,b3:b100").ClearContents
End Sub

I'm trying to send the results from these to sheets to another sheet named
"Parts Sent to Assembly" then clearing these two sheets. Then the next time
these two sheets are cleared those results are sent to the next blank row on
the "Parts Sent to Assembly" and so on. Some kind of row count, next blank
row. Thanks in advance. I'm really having a hard time with this!!