Sub HorizToVert()
    HtoV ActiveSheet.ListObjects(1).DataBodyRange, ActiveSheet.ListObjects(2).DataBodyRange
End Sub

Private Sub HtoV(inputRange As Range, outputRange As Range)
    Const FIRST_COL = 2
    Const iSTEP = 5
    
    Dim arr As Variant
    arr = inputRange.Value
    
    Dim nn As Long
    Dim xa As Long
    For xa = FIRST_COL + 1 To FIRST_COL + ((UBound(arr, 2) - FIRST_COL) \ iSTEP) * iSTEP Step iSTEP
        nn = nn + 1
    Next
    
    Dim brr As Variant
    ReDim brr(1 To nn * UBound(arr, 1), 1 To FIRST_COL + iSTEP)
    
    Dim ya As Long
    Dim yb As Long
    Dim xb As Long
    For xa = FIRST_COL + 1 To FIRST_COL + ((UBound(arr, 2) - FIRST_COL) \ iSTEP) * iSTEP Step iSTEP
        For ya = 1 To UBound(arr, 1)
            yb = yb + 1
            For xb = 1 To FIRST_COL
                brr(yb, xb) = arr(ya, xb)
            Next
            For xb = 0 To UBound(brr, 2) - FIRST_COL - 1
                brr(yb, FIRST_COL + 1 + xb) = arr(ya, xa + xb)
            Next
        Next
    Next
    
    outputRange.Resize(UBound(brr, 1), UBound(brr, 2)).Value = brr
End Sub