VBA Duplicate row when column contains specific text

[Kriszilla]

Hi,
I've always found the answers to my excel questions here.
But this one I can't seem to find.

I have an excel file containing a list of items
with descriptions of various lengts,

All items have a description L/R
And I need it to be split into L an R

I would be helped with a VBA code that copy's a row when cell in column B contains L/R
and insert a row below the actual row and paste it there so I can later adjust L/R to L and R
If the L/R would be adjusted bij the code would be even better.

Here is a image of what I would like to accomplish:

 

[RobP]

Hi, welcome to the forum.

Let me know if this works for you ?

Sub insertLR()

Application.ScreenUpdating = False
Dim LastRow, x As Long

    LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

    For x = LastRow To 1 Step -1
    
        If ActiveSheet.Cells(x, 2) = "L/R" Then
        
            ActiveSheet.Cells(x, 2) = "R"
            ActiveSheet.Range("A" & x).EntireRow.Copy
            ActiveSheet.Range("A" & x).EntireRow.Insert
            ActiveSheet.Cells(x + 1, 2) = "L"
        
        End If
    
    Next x

Application.ScreenUpdating = True

End Sub

 

[Kriszilla]

Works perfect, thanks,
You're awesome

 

[RobP]

Great, glad we could help.

thanks for the feedback

Rob