title: Application-defined or object-defined error 1004
body: <p>VBA is throwing the above given error on the line  <code>Sheets("Sheet1").Range("A" &amp; i).Copy Destination:=Sheets("Sheet2").Range("A" &amp; i &amp; "A" &amp; LastCol - 1)</code></p>
  
  <p>What I am trying to do is actually to copy the <code>"A" &amp; i</code> cell (in first iteration it's <code>A2</code>) to a range in the second worksheet named Sheet2.</p>
  
  <pre><code>Sub FindFill()
  
  Dim DatesRange As Range
  Dim i As Integer
  Dim TransposeThis As Range
  Dim LastCol As Integer
  
  If WorksheetFunction.CountA(Cells) &gt; 0 Then
     LastColumn = Cells.Find(What:="*", After:=[A1], _
     SearchOrder:=xlByColumns, _
     SearchDirection:=xlPrevious).Column
  End If
  
  
  With Sheets("Sheet1")
      Set DatesRange = Range("B2" &amp; LastCol)
  End With
  i = 1
  Do While i &lt;= ActiveSheet.Rows.Count
      Sheets("Sheet1").Range("A" &amp; i + 1).Copy Destination:=Sheets("Sheet2").Range("A" &amp; i &amp; "A" &amp; LastCol - 1)
      i = i + 1
  Loop
  
  
  
  
  End
  
  
  End Sub
  </code></pre>