Code:
Sub ExpandRanges()
Dim X As Long, CG As Variant, Rng As Range, Cell As Range
Dim Series As String, CommaGroups() As String, DashGroups() As String
Dim j As Long, lastrow As Long
j = 0
lastrow = Cells(Rows.Count, "H").End(xlUp).Row
Set Rng = Range(Range("H2"), Range("H" & lastrow))
Leave a comment: