If then statement

[Vkrage]

Hello,

I am trying to create a macro that will look in column "K" for "LRG". If the cell has LRG in it then I want it to copy that specific row and insert it directly below so that there are two identical lines. Then in the new row I want the cell in column "C" to say "Panel 2". I want it to do this through the entire worksheet.

Is this possible?

I want to be able to atleast copy and insert the row directly under it.

[mikeTRON]

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

[dflak]

This should do it for you. You may have to change one line. My sample went to column N.

Sub LRG()
Dim i As Long           ' Row inded
Dim LRow As Long        ' Last row on sheet
Dim sh As Worksheet     ' Sheet

' Initalize Variables
Set sh = Sheets("Sheet1")
LRow = sh.Range("A" & Rows.Count).End(xlUp).Row

' When inserting or deleting rows, it's best to work from the bottom up
For i = LRow To 2 Step -1
    If sh.Cells(i, "K") = "LRG" Then
        sh.Cells(i + 1, "A").EntireRow.Insert   ' Add a row below
        sh.Range(sh.Cells(i, "A"), sh.Cells(i, "N")).Copy sh.Cells(i + 1, "A")  ' Copy to row below
        sh.Cells(i + 1, "C") = "Panel 2"    ' Set column C
    End If
Next
        
End Sub