title: Copy data from one cell to another when it meets condition
body: <p>I want to loop through a column of information and if a cell contains data in that column, take data from another column on the same row and then place it into a new cell somewhere else on the sheet, adding it below the last data piece.</p>
  
  <pre><code>Sub getLostKeys()
  
      Dim k As Integer
      Dim kMove As Integer
      Dim cellKeyNum As String
      Dim newCellKeyNum As String
      Dim Kcolumn As String
      Dim Ccolumn As String
      Dim refCell As String
      Dim outputCell As String
  
      Kcolumn = "K"
      Ccolumn = "C"
  
      For k = 2 To 301
          If Cells(k, 8) &lt;&gt; "" Then
              cellKeyNum = CStr(k)
              kMove = k + 6
              newCellKeyNum = CStr(kMove)
              refCell = Ccolumn &amp; cellKeyNum
              outputCell = Kcolumn &amp; newCellKeyNum
              Range(outputCell).Value = Range(refCell)
          End If
      Next k
  
  End Sub
  </code></pre>
  
  <p>The code runs and meets the conditional but it doesn't move the cell information to the new cell.</p>