Add new line based off cell value

[bobgodfrey]

Greetings! I need a way of in vba to accomplish the below - am attaching a sample workbook where the first worksheet shows current set-up and the second worksheet shows how I need the VBA to split the data

if column bp is not null (it can contain text or int values) I need to add a new row directly under the current row.

Then in the 1st row (original) I need to remove the text in column B and H
and in the 2nd row (new) I need to remove the text in column F and K

(Any other copied values are legal to remain on both lines)

[Marc L]

Hi !

As your explanation does not match your desired worksheet, check then clearly explain …

[JOHN H. DAVIS]

Does this help?

Please Login or Register  to view this content.

Marc is right your explanation does not match your desired result sheet.

[Marc L]

Demonstration upon explanation only, not on desired worksheet :

Sub Demo()
         Application.ScreenUpdating = False
    With ActiveSheet.UsedRange.Rows
        For R& = .Count To 2 Step -1
            If .Cells(R, 14).Value > "" Then
               .Item(R).Copy
               .Item(R).Insert xlShiftDown
                Union(.Cells(R, 2), .Cells(R, 8), .Cells(R + 1, 6), .Cells(R + 1, 11)).ClearContents
            End If
        Next
    End With
         Application.ScreenUpdating = True
End Sub  

Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !