Try this
Sub findValue()
Const whatColumn = "B" 'Change to  your needs
Dim i As Long      'i = 5 Starting row of data change to your needs
Dim lastRow As Long
Dim cellPointer As Variant

   lastRow = Range(whatColumn & Rows.Count).End(xlUp).Row
   
   For i = 5 To lastRow
    Set cellPointer = Worksheets("Sheet1").Cells(i, 2)
        If cellPointer = 42285 Then
           cellPointer.Offset(0, 3).Value = "European Trade"
       End If
   Next i
End Sub

PAG,
Rather than "hard code" your searches, you could prompt the user with an
InputBox to enter the value being searched for. Following suggested code
prompts user for a numeric value & then will search Col B only – if found it
adds the data you require to Col E.

Sub FindValue()
   Dim FoundCell As Range
   Dim myws As Worksheet
   Dim Search As Single
   Dim MyTitle As String

   MyTitle = "Search Number"
   Set myws = Worksheets("Sheet1")    '<< change as required

   Search = Application.InputBox(prompt:="Enter Number To Find",
Title:=MyTitle, Type:=1)
   If Search <> 0 Then
       Set FoundCell = myws.Columns("B").Find _
                       (Search, LookIn:=xlValues, LookAt:=xlWhole)

       If FoundCell Is Nothing = False Then
           FoundCell.Offset(0, 3).Value = "European Trade"
       Else
           msg = MsgBox("Value " & Search & " Not Found", vbInformation,
MyTitle)
       End If
   End If
End Sub

You will note that I have referenced a worksheet named “Sheet1” you will
need to amend this to name of sheet you are searching.

Hope Useful