質問: "月日 - 、" End Sub
回答: Insertしようとするからややこしくなるのでは? コピーして上書きすれば済むこと、 Sub Macro1() Dim rng As Range Set rng = Range("A7:A10") rng.Copy rng.Offset(1) rng(1).Value = "月日 - 、" End Sub