With Cells(i, 1)
Select Case .Value
Case 'A', 'B', 'C', 'D', 'E', 'F'
.EntireRow.Delete
End Select
End With