How to Split "CamelCase" Text in cells

Sub SplitData()
    Dim RegExp As Object, match
    Dim strPattern As String, strText As String
    Dim rngCell As Range, lngOffset As Long
    Set RegExp = CreateObject("vbscript.regexp")
    strPattern = "[A-Z][^A-Z]*"
    With RegExp
        .Global = True
        .Pattern = strPattern
        For Each rngCell In Selection
            Set match = .Execute(rngCell.Value)
            If match.Count Then
               If match(0).FirstIndex > 1 Then
               rngCell.Value = left$(rngCell.Value, match(0).FirstIndex - 1)
               For lngOffset = 1 To match.Count
                rngCell.Offset(0, lngOffset) = match(lngOffset - 1)
                Next lngOffset
               Else
               For lngOffset = 0 To match.Count - 1
                rngCell.Offset(0, lngOffset) = match(lngOffset)
                Next lngOffset
               End If
            End If
        Next rngCell
    End With
End Sub

Sub CamelCase()
Dim rCell As Range
Dim lCount As Long

With CreateObject("vbscript.regexp")
    .Pattern = "([a-z])([A-Z])"
    .Global = True
    For Each rCell In Selection
        lCount = .Execute(rCell).Count
        If lCount Then rCell.Resize(, lCount + 1) = Split(.Replace(rCell, "$1" & Chr(1) & "$2"), Chr(1))
    Next rCell
End With
End Sub