Sub NuruSagashi()

Dim Row As Integer
Dim myFirst As String
Dim myKekka As Range

Sheets(1).Select
With Range("C1:C600")
Set myKekka = .Find(What:="#N/A")
If Not myKekka Is Nothing Then
myFirst = myKekka.Address
Do
Row = ActiveCell.Row
x = Sheets(2).Cells(600, 1).End(xlUp).Offset(1, 0).Row
Sheets(2).Cells(x, 1).Value = Sheets(1).Cells(Row, 1).Value
Set myKekka = .FindNext(After:="#N/A")
Loop Until myKekka.Address = myFirst
End If
End With
End Sub