One way:

ws.Rows(j + 1).Resize(i - 1).Insert

In article . com,
Sonnich Jensen wrote:

How do I insert multiple rows at once?

Like

ws.Rows(j + 1).Insert i - 1

this adds one row, I need i-1 rows

I cannot find it in the help, or do I need a for loop?

WBR
Sonnich