Необходимо написать макрос
For i = 1 To 1000 Step 2 Rows(i).Select Selection.Insert Shift:=xlDown Next
EXCEL