title: Assistance with lF statement and single loop
body: <p>I am tiring to get for every <code>Empty cell</code>  <code>FakeEmail(i).com</code> i.e so that if there are 3 `Empty cells I get </p>
  
  <p><code>FakeEmail1.com</code>
  <code>FakeEmail2.com</code>
  <code>FakeEmail3.com</code></p>
  
  <p>In there respective cells</p>
  
  <p>I know this is not correct but cant figure out the proper syntactic's
  <code>Cells(i, 4).Value = FakeEmail(i).com</code></p>
  
  <p>Thanks</p>
  
  <pre><code>Sub AAA()
  Dim lRow As Long
  Dim i As Long
  lRow = Range("D" &amp; Rows.Count).End(xlUp).Row
  
  For i = 1 To lRow
      If Cells(i, 4).Value = "" Then
          Cells(i, 4).Value = FakeEmail(i).com
      End If
  Next i
  End Sub
  </code></pre>