Thread: Insert new rows

the sample sheet (though trivial) is like this from A1 in sheet 1
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

copy sheet 1 to sheet 2 also

now try this macro test

Sub test()
Dim j As Integer
Worksheets("sheet1").Activate
j = 2
Do
Range(Cells(j, 1), Cells(j + 1, 1)).EntireRow.Insert
j = j + 3
If Cells(j, 1) = "" Then Exit Do
 Loop
End Sub

Sub undo()
Worksheets("sheet1").Cells.Clear
Worksheets("sheet2").Cells.Copy Worksheets("sheet1").Range("A1")
End Sub

Hi venkat1926

Thx for your great help, this was what I needed. I removed the line "worksheet" I now it works vere nice.

Sub test()
Dim j As Integer
j = 2
Do
Range(Cells(j, 1), Cells(j + 1, 1)).EntireRow.Insert
j = j + 3
If Cells(j, 1) = "" Then Exit Do
Loop
End Sub

Thx for help.

Kinds regards
Hans N