VBA to merge cells

[forest1959]

Searched the web for an answer to this but finding it hard to put into words what i need so i will do my best to explain.

If i have the number "2" in cell "A1", I want some VB that will merge cells B1 and C1 (2 columns)
then
If I have the number "4" in cell "A2", I want some VB that will merge cells B2, C2, D2 and E2 (4 columns)

and so on till the loop comes across an empty cell in column A

There will be no physical data in any other row other than "A"

In summary, I would like some VBA to merge the amount of cells from column B onward's depending on the number inputted in column A

I hope this explains enough

Regards

 

[Repush]

depends on what you consider a 'merge', merging cells loses the data in all other cells but top left

 

[forest1959]

There would be no data to lose, the cells i need merging would all be blank

 

[forest1959]

does this image help..??

https://drive.google.com/file/d/13FCwQvX4dF0cNllmEhG5iiruHEX56-VL/view?usp=sharing

 

[Repush]

this will do the trick:

Sub Macro1()
    Dim MergeCells As Range
    For Each c In [A2:A10]
        Set MergeCells = c.Offset(0, 1)
        Range(MergeCells, MergeCells.Offset(0, c.Value-1)).Merge
    Next c
End Sub

but i am curious . .why?

 

[forest1959]

It certainly will, thank you for your patience

as for why...

its a capacity tracker, each task is given an allocated time (days)

There will be a list of tasks (100+) like in the picture below

https://drive.google.com/open?id=1WLaMU1akAPEGfYQHdXhCKxzzcqrgRonH

and we will drag and drop these now into an operatives schedule to see where we have any extra capacity

https://drive.google.com/open?id=1Ji9t8FUgpHNFUC3hB8JdF9tlvzLlLf9p

Again, i hope that makes sense.

Thanks again for your help

regards
Paul

 

[forest1959]

cheeky question, but would there be a line i could add to insert a border around the merged cells?

 

[Repush]

you're welcome
thanks for the background info, that must be a bit of a puzzle . .
Gr. Henk

 

[Repush]

sorry I missed the extra question
try and record an macro doing that and apply formatting before merging I guess

 

[forest1959]

Cheers, I managed it with conditional formatting