Design Excel Macro to find the word "Weld" and insert a blank row.

Design Excel Macro to find the word "Weld", "Bend", "Flange", or "Valve" and insert a blank row below. Then enter the word "Pipeline" under those words and move the information next to "Weld", "Bend", "Flange", or "Valve" next to the word pipeline just below. Please see examples attached. Also below is part of the macro

Sub BlankLine()

Dim Col As Variant

Dim BlankRows As Long

Dim LastRow As Long

Dim R As Long

Dim StartRow As Long

Col = "E"

StartRow = 1

BlankRows = 1

LastRow = Cells([url removed, login to view], Col).End(xlUp).Row

[url removed, login to view] = False

With ActiveSheet

For R = LastRow To StartRow + 1 Step -1

If .Cells(R, Col) = "0" Then

.Cells(R, Col).[url removed, login to view] Shift:=xlDown

End If

Next R

End With

[url removed, login to view] = True

End Sub

Entrada de datos Procesamiento de datos Excel

Nº del proyecto: #7255608

Sobre el proyecto