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