excel VBA 宏 运行不了 求代码

第一个：
TTLR = Worksheets("total").Range("A1048576").End(xlUp).Row
arr = Worksheets("total").Range(Cells(2, 5), Cells(TTLR, 5))
Worksheets("main").Cells(5, 3) = Join(Application.Transpose(arr), ",") & "."

第二个：
TTLR = Worksheets("total").Range("A1048576").End(xlUp).Row
arr = Worksheets("total").[e2:e24]
Worksheets("main").Cells(5, 3) = Join(Application.Transpose(arr), ",") & "."

第一个到arr这一行就错了？ 刚刚值取了6行 第一个就能运行。 如何解决这个问题，谢谢

【e2：e24】为

水
白砂糖
酿造酱油
食用盐
黑胡椒粉
面粉牛油调料（小麦粉，精制牛油，食用香精）
羟丙基二淀粉磷酸酯
番茄酱
调味粉（食用盐，酸水解植物蛋白调味粉（酸水解植物蛋白调味液，麦芽糊精，食用盐），明胶水解蛋白调味粉（食用明胶），麦芽糊精，味精，5'-呈味核苷酸二钠，甘氨酸）
大蒜粉
植物油
红烧牛肉调味料（牛肉，食用盐，麦芽糊精，酿造酱油，食用牛油（牛油，维生素E），浓缩牡蛎汁(牡蛎，水)，味精，大蒜，白砂糖，小麦粉，玉米淀粉，芝麻油，生姜，洋葱，辣椒粉，焦糖色，5'-呈味核苷酸二钠，维生素E）
乳酸
焦糖色
酸性复合调味液（水，醋酸，食用盐）
5'-呈味核苷酸二钠
黄原胶
柠檬酸
山梨酸钾
食用香精
食用香精
阿斯巴甜（含苯丙氨酸）
食用香精

是否A列是空白的？代码调试，请把资料发送到邮箱，点名字可查到。

如果你认为宏可以加快你的速度，请发文件和要求到908856685@qq.com。 我应该回答过你问题的，请放心，没有泄密的问题。