title: VBA for each loop to paste data from one sheet to bottom of another
body: <p>I am trying to run a loop with a list of names. Each name will change the value of one cell which will then change the hosts of values on another sheet.</p>
  
  <p>The problem is that when I run the loop, the last cell on the list value replaces all the other values.</p>
  
  <pre><code>Sub MasterBrandList()
  
    Dim ChangingBrand As String, PreVBAData As Worksheet, VBAData As Worksheet, lr As Long, rng As Range
  
    For Each c In ThisWorkbook.Worksheets("Pivots_allbrands").Range("A2:A10").Cells
  
      ThisWorkbook.Worksheets("Pivots_allbrands").Range("M1").Value = c.Value
  
      Set PreVBAData = Sheets("PreVBAData")
      Set VBAData = Sheets("VBAData")
  
      lr = PreVBAData.Cells(Rows.Count, 1).End(xlUp).Row
      Set rng = PreVBAData.Range("A2:A" &amp; lr)
  
      rng.EntireRow.Copy VBAData.Cells(Rows.Count, 1).End(xlUp)(2)
  
    Next
  End Sub
  </code></pre>