I want to copy a range on a ws from A2 to H.. where the
text entry in colum H ends. Please help.

Regards
JA

Hi jamesa,

Try this

Sub CopyMyRange()

Dim r As Integer
r = 2
Do While Cells(r, 7) < ""
r = r + 1
Loop
Range(Cells(2, 1), Cells(r - 1, 7)).Copy

End Sub



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/

Here is one possible interpretation of what you are asking:

Dim rng as Range
set rng = cells(rows.count,"H").end(xlup)
Range(Range("A2"),rng).copy destination:=Range("M2")

--
Regards.
Tom Ogilvy
jamesa wrote in message
...
I want to copy a range on a ws from A2 to H.. where the
text entry in colum H ends. Please help.

Regards
JA