title: how to insert a row before pasting an array
body: <p>I currently have an array which I populate and paste in a sheet named "T1" using a macro. My current macro uses the <code>rowcount</code> function to determine the used rows and pastes the array from the next available row. </p>
  
  <p>The problem I am having is that when I paste this array multiple times, the arrays need to be spaced by a row so that i can differentiate different submissions.  This is what I have so far, and I was hoping someone could help me with this: </p>
  
  <pre><code>Sub CopyData()
  
       Dim Truearray() As String
       Dim cell As Excel.Range
       Dim RowCount1 As Integer
       Dim i As Integer
       Dim ii As Integer
       Dim col As Range
       Dim col2 As Range
       i = 0
       ii = 2
  
       RowCount1 = DHRSheet.UsedRange.Rows.Count
       Set col = DHRSheet.Range("I1:I" &amp; RowCount1)
  
       For Each cell In col
  
           If cell.Value = "True" Then
  
               Dim ValueCell As Range
               Set ValueCell = Cells(cell.Row, 3)
               ReDim Preserve Truearray(i)
               Truearray(i) = ValueCell.Value
  
               Dim siblingCell As Range
               Set siblingCell = Cells(cell.Row, 2)
               Dim Siblingarray() As String
  
               ReDim Preserve Siblingarray(i)
               Siblingarray(i) = DHRSheet.Name &amp; "$" &amp; siblingCell.Value
  
               i = i + 1
  
           End If
  
       Next
  
       Dim RowCount2 As Integer
  
       RowCount2 = DataSheet.UsedRange.Rows.Count + 1
  
       For ii = 2 To UBound(Truearray)
           DataSheet.Cells(RowCount2 + ii, 2).Value = Truearray(ii)
       Next
  
       For ii = 2 To UBound(Siblingarray)
           DataSheet.Cells(RowCount2 + ii, 1).Value = Siblingarray(ii)
       Next
  
       DataSheet.Columns("A:B").AutoFit
  
       MsgBox ("Data entered has been successfully validated &amp; logged")
  
   End Sub 
  </code></pre>