Problème pour concatener verticalement deux colonnes en vba

Bonjour,

J'ai créé une macro pour que deux colonnes soit colées l'une à la suite de l'autre dans une troisième colonne grâce à l'aide de ce forum mais elle ne fonctionne pas. J'ai une rereur d'incompatibilité de type dans la ligne
.Range("J4")...

Voici le code :
Dim Table1()
Dim Table2()
j = 0
y = 0
ReDim Table1(j)
ReDim Table2(y)
With Sheets("Paramètres du modèle")
For k = 8 To 9
For i = 4 To .Cells(65536, k).End(xlUp).Row
Table1(j) = .Cells(i, k)
j = j + 1
ReDim Preserve Table1(j)
Next i
Next k
For h = 4 To 5
For c = 4 To .Cells(65536, h).End(xlUp).Row
Table2(y) = .Cells(c, h)
y = y + 1
ReDim Preserve Table2(y)
Next c
Next h
.Range("J4").Resize(UBound(Table1, 1), 1) = Application.Transpose(Table1)
.Range("K4").Resize(UBound(Table2, 1), 1) = Application.Transpose(Table2)
End With
With Sheets("Modélisation d'un cycle en BOL")
.Range("A7").Resize(UBound(Table1, 1), 1) = Application.Transpose(Table1)
.Range("B7").Resize(UBound(Table2, 1), 1) = Application.Transpose(Table2)
End With


Si quelqu'un peut m'aider à debugger tout ça ce serait super

Cordialement,