求高手将将宏转换为想要的VBA代码，谢谢！

j代码如下表，就是在第一行o1单元格中A1&B1&C1&D1&E1,前加=回车，再进行下一个，直到这行的空白单元格止。
Sub Macro1()
' Macro1 Macro
Range("o1").Select
ActiveCell.FormulaR1C1 = "=RC[-117]&RC[-116]&RC[-113]&RC[-108]&RC[-107]"
Range("p1").Select
ActiveCell.FormulaR1C1 = "=RC[-118]&RC[-117]&RC[-114]&RC[-109]&RC[-107]"
Range("q1").Select
ActiveCell.FormulaR1C1 = "=RC[-119]&RC[-118]&RC[-115]&RC[-110]&RC[-107]"
Range("r1").Select
ActiveCell.FormulaR1C1 = "=RC[-120]&RC[-119]&RC[-116]&RC[-110]&RC[-109]"
Range("s1").Select
ActiveCell.FormulaR1C1 = "=RC[-121]&RC[-120]&RC[-117]&RC[-111]&RC[-109]"
Range("t1").Select
ActiveCell.FormulaR1C1 = "=RC[-122]&RC[-121]&RC[-118]&RC[-111]&RC[-110]"
Range("u1").Select
ActiveCell.FormulaR1C1 = "=RC[-123]&RC[-122]&RC[-118]&RC[-117]&RC[-116]"
Range("v1").Select
End Sub