how to insert a row before pasting an array
===

I currently have an array which I populate and paste in a sheet named "T1" using a macro. my current macro uses the rowcount function to determine the used rows and pastes the array from the next available row. 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 

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" & 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 & "$" & 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 & logged")


 End Sub 