Sub WarunekIF()

Dim row As Long

With Worksheets("Zapytanie1")

For row = 1 To .Cells(.Rows.Count, 5).End(xlUp).row
    If .Cells(row, 5).Value = 1 Then .Cells(row, 1).Value = .Cells(row, 2).Value
Next row
 
End With
 
End Sub

Dim cell As Range
   
    For Each cell In Range("Zapytanie1[Kolumna5]")
    If cell.Value =1 then
   
    'kopiuj komórkę z Kolumny2 i wklej ja do Kolumny1. wszystko w tym samym wierszu w którym aktualnie jest sprawdzany warunek. Jeśli komórka nie spełnia warunku to pozostaw bez zmian i Przejdź do następnego wiersza.

 
    End If
    Next cell