Excel VBA range

Hi Andrey

Thanks for question.

Here's a way to delete the rows with unwanted country codes.


Sub Remove()
Range("AI2").Select
Do Until ActiveCell = ""
If ActiveCell <> "JP" And ActiveCell <> "MX" And ActiveCell <> "US" And ActiveCell <> "CL" And ActiveCell <> "BG" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Loop
End Sub

Assumes the data is in a range starting from AI2 and ending with a blank cell.

Save your file before testing.

Regards
Doug
STL