Hello

I hve some code that inserts 4 lines into a spreadsheet one at a time

Is there a line of code that would permit me to put in 4 lines in one go?

Many thanks

With Sheets("sheet1").Range("BL1:BX1")
.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End With
With Sheets("sheet1").Range("BL1:BX1")
.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End With
With Sheets("sheet1").Range("BL1:BX1")
.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End With
With Sheets("sheet1P").Range("BL1:BX1")
.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End With