J jamesa Sep 19, 2003 #1 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
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
Z zantor Sep 19, 2003 #2 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
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
T Tom Ogilvy Sep 19, 2003 #3 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")
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")
