title: Excel Macro : Concatenate string with cell value using macro
body: <p>I am using Excel 2010.</p>
  
  <p>I have the following macro which is used to concatenate the string with cell values. </p>
  
  <pre><code>Sub Mac1()
  Dim cell As Range
  For Each cell In Range("D3", Range("D65536").End(xlUp))
      If cell.Value = "" Then
          cell.Value = ""
      Else
          cell.Value = cell.Value &amp; " Day"
      End If
  Next
  End Sub
  </code></pre>
  
  <p><strong>Note</strong>: Getting the string <code>Day</code> appended each and every time when i run the macro. </p>
  
  <p>The expected result should be if the cell is empty then no string to be concatenate with the cell, if the cell is non empty then it should concatenate string <code>Day</code> at only one time with the cell value at the end.</p>