Moving a range to end of list
 

Hi Again,
I tried your last idea and it is really close. I did modify it
little but the only thing I can't get it to do is use more than th
cell values from "A" and "B". I Hope I have attached a picture of th
file I am working on to show you the results (I will also Attach th
code at the bottom of this post). If I try to add more cells wher
they are being called out "Range(Cells(x, "A"), Cells(x, "B"))", I ge
an error for to many arguments.

Again, Thank you for your time and effort,
Sinjin341


CODE...

Sub moverange()
x = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range(Cells(x, "A"), Cells(x, "B")).Value = Range("New_Entry").Value
End Su

+-------------------------------------------------------------------
|Filename: ExcelList.jpg
|Download: http://www.excelforum.com/attachment.php?postid=2667
+-------------------------------------------------------------------

--
Sinjin34
-----------------------------------------------------------------------
Sinjin341's Profile: http://www.excelforum.com/member.php...fo&userid=1461
View this thread: http://www.excelforum.com/showthread.php?threadid=26244