Private Sub CommandButton1_Click()
a = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To a
If Worksheets("sheet1").Cells(i, 6).Value = "x" Then
Worksheets("Sheet1").Rows(i).Copy
Worksheets("Sheet1").Cells.field = 10
b = Worksheets("sheet1").Cells(Rows.Count...