Sub SiB()
Dim Dl As Long, L As Long
Application.ScreenUpdating = False
Dl = Cells(Rows.Count, 1).End(xlUp).Row
For L = Dl To 1 Step -1
If Cells(L, 1) Like "B*" And Cells(L, 1) <> "B" Then Rows(L).Delete
Next
For L = Dl To 1 Step -1
If Cells(L, 2) Like "B*" And Cells(L, 2) <> "B" Then Rows(L).Delete
Next
End Sub