If cell in column is not empty, copy value

[Yulyo]

Hi everyone,

I have the following problem:
- I have a table with 9 columns (A1:I);
- I need a VBA to look into column I and if for example I2 is not empty, to copy the value from B2 to D2, and to do this for every cell in column I. If I2 is empty, to do nothing.
I know is very easy with formula, but since this a part of a larger macro, I do not know how to make it work.

Thank you in advance.

 

[gordsky]

maybe something like

Dim cel As Range, myRng As Range
Set myRng = Range(Cells(1, "I"), Cells(Cells(Rows.count, "I").End(xlUp).row, "I"))
For Each cel In myRng
 
   If cel <> "" Then
      Cells(cel.row, 4) = Cells(cel.row, 2)
   Else
   End If
Next cel

 

[Fluff]

Another option

Sub Yulyo()
   With Range("I2", Range("I" & Rows.Count).End(xlUp))
      .Offset(, -5).Value = Evaluate("if(" & .Address & "<>""""," & .Offset(, -7).Address & "," & .Offset(, -5).Address & ")")
   End With
End Sub