excel vba manipulate arrays without loops code example

Example: excel vba manipulate arrays without loops

n = 5
 a = Array(1, 2, 3, 4, 5)
 b = Array(1, 2, 3, 4, 5)
 [a1].Resize(n) = Evaluate("{" & Join(a, ";") & "}*{" & Join(b, ";") & "}")