copy from above row

[vijay2482]

i have a excel spreadsheet named "ECN Number".
in this sheet i have a row in which column5 marked with value "x",column22 is empty " " and column23 has "some value".
if the above statement is true,i want to insert an entire blank row and i want to insert another row below this row below the empty row with column6 marked as "x",column22 empty " " and column23 with the samevalue from the above row.
after inserting this row with these values, i want to insert another entire blank row.
i have attached the workbook with the specified sheet, please help to to obtain this result
thanks in advance

[HTML removed]

 

[nbrcrunch]

try using the macro recorder to do each step as you outlined. Use relative refences so that you can use it again at the position you want.

 

[Chris Bode]

Try following macro code<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

Private Sub mySub()<o:p></o:p>
Dim row As Integer, col As Integer<o:p></o:p>
row = 1<o:p></o:p>
col = 5<o:p></o:p>
<o:p></o:p>
While Sheet1.Cells(row, col).Value <> ""<o:p></o:p>
If Sheet1.Cells(row, 5).Value = "x" And Sheet1.Cells(row, 22).Value = "" And Sheet1.Cells(row, 23).Value = "some value" Then<o:p></o:p>
Sheet1.Rows.Insert<o:p></o:p>
row = row + 1<o:p></o:p>
Sheet1.Rows.Insert<o:p></o:p>
row = row + 1<o:p></o:p>
Sheet1.Cells(row, 5).Value = Sheet1.Cells(row - 2, 5).Value<o:p></o:p>
Sheet1.Cells(row, 22).Value = Sheet1.Cells(row - 2, 22).Value<o:p></o:p>
Sheet1.Cells(row, 23).Value = Sheet1.Cells(row - 2, 23).Value<o:p></o:p>
End If<o:p></o:p>
row = row + 1<o:p></o:p>
Wend<o:p></o:p>
End Sub<o:p></o:p>

<o></o>

 

[vijay2482]

thanks for the reply.
i have solved that question