How to select range of cells that equal certain value...need help improving code.

I have this code to select range of cells that equal to China in a master sheet. However i know this code can be simplified. Can you guys help me? Basically i want to select a column A cells of a country in a mastersheet. Can't figure out how to improve this.

Sub macro65()


Dim first As Integer
Dim second As Integer


For Each Cell In Range("A:A")
    If Cell.Value = "CHINA" Then
    first = Cell.Row
    Exit For
    End If
Next Cell
second = first

For Each Cell In Range("A:A")
    If Cell.Value = "CHINA" Then
    second = second + 1
    End If
Next Cell

Range(Cells(first, 1), Cells(second - 1, 1)).Select





End Sub

Thank You

Hi,

If you column A don't contains blank cells in between you can use filter technique to select the cells with China in it with the below code.

Option Explicit

Sub test()
Dim lr As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row

    
    Range("A1:A" & lr).AutoFilter
    ActiveSheet.Range("$A$1:$A$" & lr).AutoFilter Field:=1, Criteria1:="CHINA"
    Range("A1:A" & lr).SpecialCells(xlCellTypeVisible).Select
    
    Selection.AutoFilter
End Sub

Awsesome thank you!!

Thats because in cell A5 & A6 you have extra trailing space what you see as "BS" is actually "BS ". SO deleting those extra spaces will give you the result.

See the file.