Excel vba：插入單元格/向下移動而不移動選定的單元格

Question

xldown插入並向下移動選定的單元格。
即Range(*****).Insert Shift:=xlDown

但是，我想做的是將所選行保持原樣，並向下移動以下行。

有人可以幫忙寫vba嗎？

提前致謝

Answer 1

對於單列使用

Dim rng1 As Range
Set rng1 = Range("A1:A10")
rng1.Cells(1).Offset(rng1.Cells.Count).Resize(rng1.Cells.Count, 1).Insert Shift:=xlDown

會插入A11:A20單元格