VBA Split Data

In the attachment i made a code which should separate the examples over different columns instead of just column A.

So i've got a two examples. I want to split the first example in row 1 over different columns, the separation mark is the comma.

After the first example there is a blank line.

Example 2 in row 3 over different columns, the separation mark is still the comma.

But in the code in the attachment (run it), copies just one example. In this case example two

After rData.Clear, add another line sFull = ""

Thnx.

This works for two examples, for the first two examples it worked. The third one is a copy of the second one.

What should i change if i want to change this for more than 100 examples?

This should work for any number of examples. Can you upload the file that is showing error? CurrentRegion returns the cells that are bounded by any combination of blank rows and blank columns. So make sure that your each example is separated by blank rows in between.

Hi,

Thnx you were right.

Could you write a vba code for the format is an the attachment?

So it is like the old sheet and it should be ordered as the new sheet.

I kept the blank lines in between like the two examples, the same for the rest.

You don't need blank row for each cell value. Only where the current region ends i.e at the end of each example. To do the format you wanted, do you have same number of rows for each address or will it change?

The format is like the one in the example and it for each adress the same.

I will keep the same number of rows.