Split merged cells from Infopath - Sharepoint

Option Explicit
Sub Splitter()
    Dim TestRange   As Range, _
        TestCell    As Range, _
        Holder      As Variant, _
        LstCol      As Long

    LstCol = Cells(1, Columns.Count).End(xlToLeft).Column
    Set TestRange = Range("A2", Cells(2, LstCol))
    
    For Each TestCell In TestRange
        If TestCell.Value <> "" Then
            Holder = Split(TestCell.Value, Chr(10))
            Select Case UBound(Holder)
                Case 0
                    TestCell.Offset(2, 0).Value = TestCell.Value
                Case Else
                    TestCell.Offset(2, 0).Resize(rowsize:=UBound(Holder) + 1).Value = Application.Transpose(Holder)
            End Select
        End If 'not blank
    Next TestCell
End Sub