Redistribute a Delimited Column Of Data into Separate Rows (Keeping Other Data As Is)

[msrebraca]

I only changed the constants to:

Const Delimiter As String = ";#"
Const DelimitedColumn As String = "D"
Const TableColumns As String = "A:D"
Const StartRow As Long = 2

Any ideas what could trigger the error on that line?