Merge every other two rows

[Livin404]

Good evening, I'm try to merge two rows beginning on Row 5 and only in Column J which will run to the bottom of the worksheet.

I found something and twisted to the code below, but I'm entirely off the mark. Any assistance would be greatly appreciated.

Sub Merge_Column_J()
Dim RgToMerge As Range

For i = 5 To ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row Step 2

    Set RgToMerge = Range(Cells(i, 10), Cells(i + 1, 10))
    With RgToMerge
        .Merge
        .HorizontalAlignment = xlCenterAcrossSelection
        .VerticalAlignment = xlCenter
    End With

Next i
End Sub

 

[Joe4]

I always shudder when I seem people merging cells (merged cells are just about the worst feature of Excel, and cause all sort of problems for things like VBA, sorting, etc).
But I digress...

Your code looks fine to me. How is it not working?

Perhaps your issue is here:

ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row

Note that this is finding the last row in the third column (column C) with data, and going down that far.
Is that the intended column you want to look at to find the last row of data?
If not, change the number 3 to the column number you wish to use for that purpose.

 

[Livin404]

I always shudder when I seem people merging cells (merged cells are just about the worst feature of Excel, and cause all sort of problems for things like VBA, sorting, etc).
But I digress...

Your code looks fine to me. How is it not working?

Perhaps your issue is here:

ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row

Note that this is finding the last row in the third column (column C) with data, and going down that far.
Is that the intended column you want to look at to find the last row of data?
If not, change the number 3 to the column number you wish to use for that purpose.

Thank you, after a struggle it is working now. Thank you,

 

[Joe4]

You are welcome.
Glad I was able to help.