宏的二次运行未按要求执行

学习VBA当中

各位大神，
我VBA的目的：将表NAME的A列以表MAIN的C列数作为标杆循环输入到表MAIN的A列（只是循环输入）。但过程中出现以下问题。
当进入第二次、第三次等循环时，
1.当次的第一格自动输入空值。
2.VBA以表NAME的A2开始输入到表MAIN的A列。（我希望是承接着NAME的A列人名顺序循环输入，可参考效果图）

请问应该如何设定？

sy394589008

Sub text()
  Dim arr
  Sheets("MAIN").Select
  arr = Range("A1").CurrentRegion
Sheets("效果图").Select
  
  For i = 2 To UBound(arr)
      If arr(i, 1) <> "" Then
         Range("A50000").End(xlUp)(2, 1).Resize(1, 3) = Array(arr(i, 1), arr(i, 2), arr(i, 3))
      End If
  Next
  
End Sub

学习VBA当中

sy394589008 发表于 2021-3-3 10:57
Sub text()
  Dim arr
  Sheets("MAIN").Select

谢谢回复，但是你的代码好像不对。
我希望的结果是表Name的A2到A8按顺序COPY到MAIN的A列。如果第二/第N次继续运行时它会维持表Name的A2到A8顺序继续输入到MAIN的A列。停止项是以MAIN的C列最后一列为准。因为C列会持续输入数据。