I am having trouble, I want to copy a range after I select it. The rang
changes so I have to figure out where it ends then select it, copy i
and then paste it. I can find the end, but the rest is over my head.
have no training in VB, but I fiddle with it to help at work.

Sub copyctob()
ActiveSheet.Activate
Dim myrange As Range

Range("c4").Select
Do While ActiveCell "0"
If ActiveCell "0" Then
ActiveCell.Offset(1, 0).Activate
Else
ActiveCell.Select
End If
Loop
ActiveCell.Offset(-1, 0).Activate
myrange = ActiveCell
ActiveCell.Select


Range("c4:myrange").Select



End Su

--
PBANK
-----------------------------------------------------------------------
PBANKS's Profile: http://www.excelforum.com/member.php...fo&userid=3137
View this thread: http://www.excelforum.com/showthread.php?threadid=51062