Private Sub CommandButton2_Click()
Dim c1 As Long, Derlig1 As Long, Derlig2 As Long, Cp As Variant
Dim c2 As Long, fin1, fin2, k1, k2
Set ws1 = Sheets("BOM")
Set ws2 = Sheets("Drawing")
dl1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row
dc1 = ws1.Cells(2...