Paste into non sequential rows

I have an array (see below) which copies A3:A50 from each sheet and pastes it into H2:H49 of another workbook. The question is how do I modify my array so that it pastes each selection from my array but instead of always using H2:H49, it jumps down by 47 rows before it moves onto the next sheet in my array?

Sub SaturdayTEST()
Application.ScreenUpdating = False

Dim wbTemplate As Workbook
Dim wbForecast As Workbook
Dim wbConsol As Workbook
Dim I As Long
Dim J As Long
Dim arrSheets

    varFilename = Application.GetOpenFilename("Excel Files (*.xls), *.xls", MultiSelect:=False)
    
    If TypeName(varFilename) = "Boolean" Then Exit Sub
    
    Set wbConsol = Workbooks.Open(varFilename)
    
    Set wbForecast = Workbooks("Forecast - 20xx-xx-xx.xlsm")
    
    arrSheets = Array("BHSI", "CHSI", "HPTS", "IPTV", "TRUE Repair")

    For J = LBound(arrSheets) To UBound(arrSheets)
      For I = 0 To 6
        wbForecast.Sheets(arrSheets(J)).Range("A3:A50").Copy
        wbConsol.Sheets("Data").Range("H2:H49").PasteSpecial Paste:=xlPasteValues
      Next I
    Next J
Application.ScreenUpdating = True
End Sub