**I need to write VBA code that:**

1. Reads in rows in a sheet
2. Checks if column E has the character ";#" and parses the string on that character
3. Creates a new row and copies and pastes the row contents from the parsed row to the new row (both rows will have the same contents)
4. Renames the original column to the word that comes before ;#" and renames the copied column to the word that follows ";#"

**Example with three columns:**  

*Original row:* String A;#String B;#StringC (cell 1) Complete (cell 2) 5/20/2019 (cell 3)

**What I need:**  

*Updated\_Original row:* String A Complete 5/20/2019  

*New row 1:* String B Complete 5/20/2019  

*New row 2:* String C Complete 5/20/2019

```vb
Private Sub CommandButton1_Click()

Dim SplitText
Dim WrdArray() As String, size As Integer

'iterate through all the rows in the sheet
For i = 1 To i = 2000

    'take one cell at a time
    cell_value = ThisWorkbook.ActiveSheet.Cells(i, 1).Value
    size = WorksheetFunction.CountA(Worksheets(1).Columns(1))

    'Split cell contents
    WrdArray() = Split(cell_value, vbLf)
    For j = LBound(WrdArray) To UBound(WrdArray)
        Var = WrdArray()(0)
    Next j

    '  WrdArray().Resize(UBound(SplitText) + 1).Value = Application.Transpose(SplitText)
    ReDim WrdArray(size)
    counter = counter + 1

    Var = SplitText

Next i

End Sub

```

[![enter image description here](https://i.stack.imgur.com/VSyza.png)](https://i.stack.imgur.com/VSyza.png)