Sub insert()
'
' insert Macro
' insert rows
'

For I = 2 To 25 Step 4
    Range(I & ":" & I).Select
    Selection.insert Shift:=xlDown
    Selection.insert Shift:=xlDown
    Selection.insert Shift:=xlDown
    Range("A" & I) = Range("B" & I)
    
    Range("A" & I) = "K : DON "
    Range("A" & I + 1) = "K : PP"
Next I
End Sub







Sub temp()
For I = 3 To 80000 Step 3
    Range(I & ":" & I).Select
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Range("A" & I) = "K : DON "
    Range("A" & I + 1) = "K : PP"
Next I
End Sub


FINAL PROGRAM

For I = 2 To 100 Step 4
Range(I & ":" & I).Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Range("A" & I) = Range("B" & I + 3)
Range("A" & I + 1) = "K : DON "
Range("A" & I + 2) = "K : PP"


Sub insert_lines_vb()

For I = 2 To 200 Step 5
    Range(I & ":" & I).Select
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Range("A" & I) = Range("B" & I + 4)
    Range("A" & I + 1) = "K : DON "
    Range("A" & I + 2) = "K : PP"
    Range("A" & I + 3) = "K : KEY"
Next I
End Sub



K : $ /cr m3 c
K : R
K : KEY
K : 0 0 0
K : 1
K : DON
K : R
K : KEY
K : 10 0 0
K : 1
K : DON
K : R
K : KEY
K : 20 0 0
K : 1
K : DON
K : R
K : KEY
K : 30 0 0
K : 1
K : DON
K : R
K : KEY
K : 40 0 0
K : 1
K : DON
K : $ /cr m3 l
K : PP
K : KEY
K : 0 0 0
K : 0 0 200
K : DON
K : PP
K : KEY
K : 10 0 0
K : 10 0 200
K : DON
K : PP
K : KEY
K : 20 0 0
K : 20 0 200
K : DON
K : PP
K : KEY
K : 30 0 0
K : 30 0 200
K : DON
K : PP
K : KEY
K : 40 0 0
K : 40 0 200
K : DON
K : $ /TA MM CR SW
K : LAB
K : Workbench_wireframe
K : C
K : c6
K :
K : Workbench_wireframe
K : C
K : c6
K : c1
K :
K :
K :
K : OKAY
K : $ /TA MM CR SW
K : LAB
K : Workbench_wireframe
K : C
K : c7
K :
K : Workbench_wireframe
K : C
K : c7
K : c2
K :
K :
K :
K : OKAY
K : $ /TA MM CR SW
K : LAB
K : Workbench_wireframe
K : C
K : c8
K :
K : Workbench_wireframe
K : C
K : c8
K : c3
K :
K :
K :
K : OKAY
K : $ /TA MM CR SW
K : LAB
K : Workbench_wireframe
K : C
K : c9
K :
K : Workbench_wireframe
K : C
K : c9
K : c4
K :
K :
K :
K : OKAY
K : $ /TA MM CR SW
K : LAB
K : Workbench_wireframe
K : C
K : c10
K :
K : Workbench_wireframe
K : C
K : c10
K : c5
K :
K :
K :
K : OKAY
K : $ mpos :; /F PR E
E : **** END OF SESSION ****