VBS Delimiter overwriting Header Rows (Row1)

Hello,

I have column headings in row 1 (Column A-K).
From Row 2 will have the data.
If a row has a caret ^, then the macro will transpose.
Any semicolons, will be delimited.
When the macro is run, it removes the data in row B1(Line 2). I can have up to 4 semicolons and it will remove the text from Row B1, C1, D1 and E1. I need the macro to leave row 1 alone. Otherwise the macro works. Also, I would like for the macro to place a 1 in all the cells in the Qty (Col F2) IF there is caret.
The macro, in the below, will place the data in cell but it clears row B1 in this example:
A2-abc
B2-456
A3-BCD
A4-679

Example:

Row 1 Line 1 Line 2 line 3 line 4 line 5 Qty
Row 2 abc;456^BCD;679 2

I have tried different things to make the "Line X' to be retained in Row 1 but to no avail and I am a novice. Any assistance would be greatly appreciated!

Code that is in the macro now is:

Sub delimit()
Application.ScreenUpdating = False
LR = Cells(Rows.Count, 1).End(xlUp).Row
For r = LR To 2 Step -1
Set MyCell = Cells(r, 1)
Arry = Split(MyCell.Value, "^")
For c = 0 To UBound(Arry)
If c > 0 Then MyCell.Offset(c, 0).EntireRow.Insert
MyCell.Offset(c, 0) = Arry(c)
Next c
Next r

  Columns("A:A").Select
  Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
      Other:=True, OtherChar _
      :=";", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
        
End Sub

Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(Because you are new to the forum, I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)