Option Explicit
Public Sub Example()
    Dim Sht As Worksheet
    Dim rng As Range

    Set Sht = ActiveWorkbook.Sheets("Sheet2")

    For Each rng In Sht.Range("A1", Range("A11").End(xlUp))

        rng.Offset(0, 1).Value = Split(rng, " ")(0)

    Next

    Set Sht = Nothing
    Set rng = Nothing
End Sub

Sub one()
Dim food As String, type As String

Dim rng As Range
Dim cel As Range

Set rng = Range("A:A")

For Each cel In rng

   food = cel.Value

   If InStr(UCase(food), UCase("pizza")) <> 0 Then
      type = "Fast food"
   Elseif InStr(UCase(food), UCase("burger")) <> 0 Then
      type = "Fast food"
   Else
      type = "Not Fast food"
  End If

  cel.offset (0, 1).Value = type
Next cel
End Sub

Sub Find_and_Copy():
  Dim keywords() As Variant
  keywords = Array("Pizza", "Burger", "Chicken")

  Dim endRow As Integer
  Dim SearchRng As Range
  With Sheets("Sheet1")
    endRow = .Cells(Rows.Count, "A").End(xlUp).Row
    Set SearchRng = .Range("A1:A" & endRow).Cells
  End With

  Dim r As Range
  Dim firstAddress As String
  Dim i As Integer
  For i = 0 To UBound(keywords):
    With SearchRng
      Set r = .Find(keywords(i), LookIn:=xlValues)
      If Not r Is Nothing Then
          firstAddress = r.Address
          Do
            Cells(r.Row, "B").Value = keywords(i)
            Set r = .FindNext(r)
          Loop While Not r Is Nothing And r.Address <> firstAddress
      End If
    End With
  Next

End Sub