Private Sub CommandButton1_Click()
Dim i As Long
For i = Cells(Rows.Count, 9).End(xlUp).Row To 2 Step -1
If Cells(i, 9) = Cells(i, 10) Then Range("H" & i).Copy Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
If Cells(i, 9) = Cells(i, 11) Then Range("H" & i).Copy Sheets("Sheet2").Cells(Rows.Count, 5).End(xlUp).Offset(1)
'Cells(i, 9).EntireRow.Delete
Next
End Sub