Warunek IF oraz Kopiuj wklej w tabeli. VBA

Proszę o pomoc w stworzeniu poniższego warunki dla tabeli z wykorzystaniem pętli.

Dzięki wielkie !

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