自动添加单元格的内容，VBA怎么写简化

jjmysjg

A1：G2的单元格内容=J2:J5+L2:L5各自单元格的内容。   
    [A1] = "文件名称"
    [B1] = [J2]: [E1] = [L2]: [B2] = [J3]: [C2] = [J4]: [D2] = [J5]: [E2] = [L3]: [F2] = [L4]: [G2] = [L5]
为什么下面的代码不行：
    [B1].Resize(1, 2) = Array("J2", "L2")
    [B2].Resize(1, 2, 3, 4, 5, 6) = Array("J3", "J4", "J5", "L3", "L4", "L5")
有没有简化的代码。
谢谢各位！

longwin

[a1] = "文件名称"
[b1] = [j2]
[e1] = [l2]
[b2].Resize(1, 3) = WorksheetFunction.Transpose(Range("J3:J5").Value)
[e2].Resize(1, 3) = WorksheetFunction.Transpose(Range("l3:l5").Value)