Do not overcomplicate things:

This suffices:
Dim Arr(1 To 10, 1 To 5) 
ActiveSheet.Range("A1:E10")= Arr