title: VBA PasteSpecial Transpose gives Application-defined or object-defined error (1004)
body: <p>I'm trying to copy a whole column (minus the heading) from a CSV file and paste it transposed into my excel file. </p>
  
  <p>"Run-time error '1004': Application-defined or object-defined error (1004)" flags up on the last line where I'm trying to run the paste-transpose operation and I can't figure out why?</p>
  
  <p>Code is as follows:</p>
  
  <pre><code>Sub UpdateData()
  
  Dim LastRow_1 As Long      ' Set up variable                                                                           
  LastRow_1 = Workbooks("ProconData").Worksheets(1).Cells(Rows.Count,1).End(xlUp).Row ' Find last non-blank row
  
  
  Dim CopyRange_1 As Range      ' Set up variable  
  Set CopyRange_1 = Workbooks("ProconData").Worksheets("ProconData").Range("A2").Resize(LastRow_1, 1)  ' Define copy range
  
  Dim PasteRange_1 As Range      ' Set up variable  
  Set PasteRange_1 = Workbooks("TBM Ground Condition 
  Record").Worksheets("RECORD").Range("LV4") '.Resize(4, 334 + LastRow_1) ' Define paste range
  
  Workbooks("TBM Ground Condition Record").Worksheets("RECORD").Range(PasteRange_1).PasteSpecial Transpose:=True, Paste:=xlPasteValues  ' Transpose &amp; paste data
  
  End Sub
  </code></pre>
  
  <p>Any help would be much appreciated!</p>