質問者が納得こんな感じかな。Sub RowInsMacro() With Range("A15:E15") .AutoFill Destination:=.Resize(2), Type:=xlFillDefault End WithRows(18).Insert Shift:=xlDownEnd Sub---補足に対して ---> エラーになってしまいます。。。こういうときは、エラーの内容(Err.Number)を書いてください。このコードは、エラーになる要素が無いと思いますが・・・シートを...
5000日前view23