Maybe someone can help me with the condition below . Thx for help.
Dim cell As Range For Each cell In Range("query1[Column5]") If cell.Value =1 then... 'copy cell from Column2 and paste it into Column1. all on the same line where the condition is currently being checked. If the cell does not meet the condition, leave it as is and move to the next row end IF next cell