Hello Robert H,

This method will combine find the end of each column and create a new
range with that includes the end of the columns.

Code:
--------------------

Sub RangeTest()

Dim Addx As String
Dim NewRng As Range
Dim Rng As Range

Set Rng = Range("H1,I1,J1,K1,L1,M1")

For Each Cell In Rng.Areas
If NewRng Is Nothing Then
Set NewRng = Range(Cell, Cell.End(xlDown))
Else
Set NewRng = Union(NewRng, Range(Cell, Cell.End(xlDown)))
End If
Next Cell

Addx = NewRng.Address

End Sub

--------------------

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.thecodecage.com/forumz/member.php?userid=75
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=44959