title: Copy Value from Worksheet "datastore" A1 to Worksheet "1" D4..."datastore" A2 to Worksheet "2" and so on
body: <p>I have a list on one Worksheet, which is called "datastore" with about 180 Values. The same excel file has about 180 Sheets with name "1", "2", "3", ... "180".
  I want to Copy Value A1 from "datastore" to Table "1" D4, Value A2 from "datastore" to Table "2" D4, A3 from "datastore" to Table "3" D4, and so on.
  Value B1 from "datastore" to cell D6 of Table "1" and so on</p>
  
  <p>I tried with a for loop:</p>
  
  <pre><code>Sub CopyPasteMacro()
  Dim iCounter As Integer
  Dim iCounterString As String
  Dim iCounterStringA As String
  
  For iCounter = 1 To 180
  iCounterStringA = "A" + CStr(iCounter)
  iCounterString = CStr(iCounter)
  
  
  Worksheets("datastore").Range(iCounterStringA).Value = 
  Worksheets(iCounterString).Range("D4").Value
  Next iCounter
  End Sub
  </code></pre>
  
  <p>It tells me "Index out of valid Range"</p>
  
  <p>I am a beginner in VBA 
  Anyone can help me?</p>