EXCEL - 不同工作表的插入與複製

Dim x
X=activecell.row
Rows(x).select
Selection.copy
Sheets(“a”).select
Rows(x).select
Selection.insert shift:=xldown