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

[msrebraca]

Hi Rick,

I tried to use your macro and after updating the 4 constants I get a runtime error 1004 on the following line.

Intersect(Rows(X + 1), Columns(TableColumns)).Resize(UBound(Data)).Insert xlShiftDown