Livin404
Well-known Member
- Joined
- Jan 7, 2019
- Messages
- 774
- Office Version
- 365
- 2019
- Platform
- Windows
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.
I found something and twisted to the code below, but I'm entirely off the mark. Any assistance would be greatly appreciated.
VBA Code:
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
Last edited by a moderator: