Excel VBA-我需要将一系列数据向下粘贴到行数据的末尾。

ie:我在E2:W2中有数据，我想根据A列中的行数将其粘贴到E:W。每次我运行宏时，它的行数都会不同。可以是3行或2000行

---

而且，可能是1，因此无需复制。

类似的内容将一直复制E2:W2，直到A列中没有填充的单元格为止

Sub CopyEW

if cells(rows.count,1).end(xlup).row>2 then _
    range("E2:W2").copy range("E2:W2").resize(cells(rows.count,1).end(xlup).row)

end if

end sub