Insert New Row based on qualifier

[mattyro1]

Hello All,

I have searched a few sites but with no luck. I am in need a VBA code that will create new row based on a condition. The condition is whether Column "O" contains any information. If so, create a row below the original and copy "A:AT" and paste into that new row.

I will need to continue to run this unless there is a way to make the same condition above but for Columns P, Q, R...thru AD. I can change the code manually if it becomes too complicated.

Any help would greatly be appreciated!

 

[mattyro1]

Hello All,

I have searched a few sites but with no luck. I am in need a VBA code that will create new row based on a condition. The condition is whether Column "O" contains any information. If so, create a row below the original and copy "A:AT" and paste into that new row.

I will need to continue to run this unless there is a way to make the same condition above but for Columns P, Q, R...thru AD. I can change the code manually if it becomes too complicated.

Any help would greatly be appreciated!

I've been able to get start off with the below...but still missing some steps such as copy the above data and paste it in the new row...Any idea's of perhaps a more efficient way of writing out this code???

Sub test()
Dim i As Long
For i = Range("O11149").End(xlUp).Row To 1 Step -1
If Range("O" & i).Value <> "N/A" Then
Range("A" & i).Offset(1, 0).EntireRow.Insert
End If
Next
End Sub