VBA code for Insert new row based on criteria

[parkroyalduo]

Hoping someone can assist.
I have a worksheet which contains product line item data. (15 columns across, 400 rows down)
I need help with writing code that can Copy and Paste a column (in Column S) from another worksheet and insert a new row based on the criteria of "No" in Column T.

It would only need to insert one new row at the first "No".

Hope there is a solution available. I am at a very basic level of coding so any help would be appreciated!

Thanks
PRD

 

[dermie_72]

if you just want to insert a row after the first no in column T then the following code will work.

sub add_row_after_no_in_T
dim LR as long
Dim I as Long
LR = .Cells(.Rows.Count, "T").End(xlUp).Row
For I = 1 to LR
   If cells(I,20).value = "No" Then
           cells(I +1, 20).entirerow.insert
           exit sub
           else
   end if
next I
end

To copy and paste the information, you need to write the code for that. If you're not sure how to write it, I suggest recording a macro to copy the details after the macro has been run, then inserting that code.
I hope that helps.