Text to n rows + copy row and insert n times

Sub test()
    Dim rrow1 As Range, rrow2 As Range, crow2 As String, rcol As Range
    Dim j As Long, k As Long, nname() As String
    Dim m As Integer, dest As Range, ddata() As String, n As Long
    Application.ScreenUpdating = False
    undo
    With Worksheets("sheet1")
        j = .Range("a1").End(xlDown).Row
        ReDim ddata(1 To j - 1)
        For k = 2 To j
            ddata(k - 1) = .Cells(k, Columns.Count).End(xlToLeft).Value
            'msgbox ddata(k - 1)
            Set rcol = Range(.Cells(k, "C"), .Cells(k, "c").End(xlToRight).Offset(0, -1))
            'msgbox rcol.Address
            m = WorksheetFunction.CountA(rcol)
            'msgbox m
            ReDim nname(1 To m)
            For n = 1 To m
                nname(n) = rcol(1, n)
                'msgbox nname(n)
            Next n
            'msgbox rcol.Address
            Range(.Cells(k, "A"), .Cells(k, "B")).Copy
            With Worksheets("sheet2")
                Set dest = .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
                'msgbox dest.Address
                Range(dest, dest.Offset(m - 1, 0)).PasteSpecial
                For n = 1 To m
                    dest.Offset(n - 1, 0).Offset(0, 2) = nname(n)
                    .Cells(dest.Offset(n - 1, 0).Row, Columns.Count).End(xlToLeft).Offset(0, 1) = ddata(k - 1)
                Next n
            End With
        Next k
    End With
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
    MsgBox "macro over"
End Sub

Sub undo()
    Worksheets("sheet2").Cells.Clear
End Sub

Sub testone()
Dim m As Long, j As Long, k As Long, semicolon() As Long, ccount As Long
Dim n As Long, nname() As String
Dim r As Range, start As Long
Dim dest As Range
Dim r1 As Range
Application.ScreenUpdating = False
start = 1
ccount = 1
undo
With Worksheets("sheet1")
j = .Range("a2").End(xlDown).Row
For k = 3 To j
Set r = .Cells(k, "L")
With r
m = Len(r.Value) - Len(WorksheetFunction.Substitute(r, ";", ""))
'msgbox m
If m = 0 Then
nname(1) = r.Value
GoTo m_is_zero
End If
End With
ReDim semicolon(1 To m)
ReDim nname(1 To m + 1)
For n = 1 To m + 1
If n = m + 1 Then
nname(n) = Mid(r, start, Len(r) - semicolon(n - 1))
'msgbox nname(n)
GoTo nextstep
End If
semicolon(n) = InStr(ccount, r, ";")
'msgbox semicolon(n)
nname(n) = Mid(r, start, semicolon(n) - 1)
'msgbox nname(n)
''msgbox nname(n)
start = start + semicolon(n)
'msgbox start
'ccount = ccount + semicolon(n)
Next n
nextstep:
m_is_zero:
.Range(.Cells(k, 1), .Cells(k, "K")).Copy
With Worksheets("sheet2")
Set dest = .Cells(Rows.count, "A").End(xlUp).Offset(1, 0)
Range(dest, dest.Offset(m, 0)).PasteSpecial
For n = 1 To m + 1
dest.Offset(n - 1, 0).End(xlToRight).Offset(0, 1) = nname(n)
Next n
End With
Set r1 = Range(.Cells(k, "M"), .Cells(k, "M").End(xlToRight))
r1.Copy
With Worksheets("sheet2")
Set dest = .Cells(Rows.count, "M").End(xlUp).Offset(1, 0)
Range(dest, dest.Offset(m, 0)).PasteSpecial
End With
start = 1
ccount = 1
Next k
End With
With Worksheets("sheet2")
Range(.Range("a2"), .Range("A2").End(xlDown)).EntireRow.AutoFit

Range(.Range("A2"), .Range("a2").End(xlToRight)).EntireColumn.AutoFit
End With
Application.ScreenUpdating = True
Application.CutCopyMode = False
MsgBox "macro over"
End Sub

Sub undo()
With Worksheets("sheet2")
.Cells.Clear
End With
End Sub