title: Script Runs but doesn't do anything
body: <p>The script runs without errors but it doesn't do whats its supposed to do, In fact it doesn't change anything in the documents. I test a part and the testing software spits out  4 workbooks that are saved in a folder named Location 1,2,3,4. Then i open a template, "alpha" in the script, that uses data from the previous workbook to show averages and to show tread of data. The macro is then activated by a button and its supposed to paste in the alpha workbook to the next empty row. The rows are 6 cells apart and 3 cells across. </p>
  
  <p>Apperently i need 10 rep before pictures so heres a link to the picture.... In the picture One test is done, i have a macro for one test (row) but i cant get it to repeat and paste to the next  empty down. If there is a better way of doing this please let me know haha.
  <a href="https://drive.google.com/file/d/0B9n6BtJ4Med8NlVGa2FySzEtMGM/view?usp=sharing" rel="nofollow">https://drive.google.com/file/d/0B9n6BtJ4Med8NlVGa2FySzEtMGM/view?usp=sharing</a></p>
  
  <pre><code>Sub DataTransfer()
  
   'simplified to 2 workbooks
  
  Dim w As Workbook 'Test_Location 1
  Dim Alpha As Workbook 'Template
  Dim Emptyrow As Range
  
      Set w = Workbooks.Open("C:\Users\aholiday\Desktop\FRF_Data_Macro_Insert_Test\location_1.xls")
      Set Alpha = Workbooks("FRF_Data_Sheet_Template.xlsm")
      Set EmptyrowC = Range("C" &amp; Alpha.Sheets("DataInput").UsedRange.Rows.Count + 1)
  
          w.Sheets("Data").Range("I3:K7").Copy
          With Alpha.Sheets("DataInput")
          EmptyrowC.PasteSpecial Paste:=xlValues, Transpose:=False
          Application.CutCopyMode = True
  
  
          End With
  
    End Sub
  </code></pre>
  
  <p>I also tried to do a If statement but got no where with that.</p>
  
  <pre><code> Sub DataTransfer()
  
   Application.ScreenUpdating = False
   Dim w As Workbook 'Test_Location 1
   Dim x As Workbook 'Test_Location 2
   Dim y As Workbook 'Test_Location 3
   Dim z As Workbook 'Test_Location 4
   Dim Alpha As Workbook 'Template
   Dim Emptyrow As Long 'Next Empty Row
  
  Set w = Workbooks.Open("C:\Users\aholiday\Desktop\FRF_Data_Macro_Insert_Test\location_1.xls")
  Set x = Workbooks.Open("C:\Users\aholiday\Desktop\FRF_Data_Macro_Insert_Test\location_2.xls")
  Set y = Workbooks.Open("C:\Users\aholiday\Desktop\FRF_Data_Macro_Insert_Test\location_3.xls")
  Set z = Workbooks.Open("C:\Users\aholiday\Desktop\FRF_Data_Macro_Insert_Test\location_4.xls")
  Set Alpha = Workbooks("FRF_Data_Sheet_Template.xlsm")
  
      If Columns("C").Value = "" Then
          Alpha.Sheets("DataInput").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = w.Sheets("Data").Range("I3:K7").Value
          Alpha.Sheets("DataInput").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = x.Sheets("Data").Range("I3:K7").Value
          Alpha.Sheets("DataInput").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = y.Sheets("Data").Range("I3:K7").Value
          Alpha.Sheets("DataInput").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = z.Sheets("Data").Range("I3:K7").Value
  
          w.Close False
          x.Close False
          y.Close False
          z.Close False
      End If
  </code></pre>
  
  <p>Application.ScreenUpdating = True
  End Sub</p>