Merge cells that a loop references

[rjwrees]

VBA knowledge is limited.

I have a macro where there is a loop and starts a one row & goes back till first row, which may encompass several rows. Each cell gets a some borders formatted to it individually.

I want to be able to select all rows in the loop incl of the start and finish rows and merge!

Can anyone help?

this is the part of the macro in question & obviously you cant merge individual cells.

'update counter
Vlength = Vlength - 1
Loop Until Vlength = 0
Application.CutCopyMode = False
ActiveCell.Value = Vdesc


Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

[patel45]

attach please a sample file with current data and desired result

[HaHoBe]

Hi, rjwrees,

weŽd love to help but sadly you missed to wrap your code in code-tags as requested in the forum rules. WeŽd be glad to help if you do so.

Ciao,
Holger

[rjwrees]

attach please a sample file with current data and desired result

Hi,

Having trouble attaching sheet.

Essentially, during the following Loop, that goes from one row to another, I want to be able to select all rows that the loop goes through and at the end of the loop Merge the cells.

Hope that makes sense.

Richard

'update counter
Vlength = Vlength - 1
Loop Until Vlength = 0
Application.CutCopyMode = False
ActiveCell.Value = Vdesc


Application.CutCopyMode = False