title: Excel VBA add value in specific cells
body: <p>Got help from you guys to create a code to copy some value from one workbook to another. I have one more question though.
  I would like to write som static information in a cell in column J on the same row as the other copied information.
  How do I add that to the loop?</p>
  
  <p>I´ve tried:</p>
  
  <pre><code>wsDest.Cells(DestRow, "J").Value = "HVD"
  </code></pre>
  
  <p>But it only adds the value in the first row not the rest. No errors but it seems as it doesn't loop as the other code inside the <strong>For Each</strong>.</p>
  
  <pre><code>Option Explicit
  
  Public Sub CopyCells()
      Dim wsSrc As Worksheet 'define source sheet
      Set wsSrc = ThisWorkbook.Worksheets("Blad1")
  
      Dim wbDest As Workbook 'define destination workbook
      Set wbDest = Workbooks.Open("C:\Temp\Ändringar bef objekt.xlsx")
  
      Dim wsDest As Worksheet 'define destination sheet
      Set wsDest = wbDest.Worksheets("Ändringsdata")
  
      Dim DestRow As Long
      DestRow = 2 'start in row 2 in destination sheet
  
      wsSrc.Parent.Activate: wsSrc.Activate
  
      Dim Rng As Range
      For Each Rng In Selection.Areas
          Rng.Resize(, 1).Copy Destination:=wsDest.Cells(DestRow, "A") 'copy A to A
          Rng.Resize(, 1).Offset(, 5).Copy Destination:=wsDest.Cells(DestRow, "D") 'copy F to D
          **wsDest.Cells(DestRow, "J").Value = "HVD" 'write HVD in column J same row**
          DestRow = DestRow + Rng.Rows.Count 'move DestRow to next free row
      Next Rng
  End Sub
  </code></pre>