:) I like the way you put it as Classic Split Trap.
Anyway, it's easily fixed by a simple concatenation
Sub SMC()
Dim var As Variant, varOut As Variant, varFomat As Variant, lngRow As Long, lngRow2 As Long, lngCol As Long, lngIndex As Long
Const clngSplitCol As Long = 13
With...