try this

Sub moverange()
x=cells(rows.count,"H").end(xlup).row+1
range(cells(x,"h"),cells(x+3,"I")).value=Range("f1 2:g15").value
Range("f12:g15").entirerow.delete
End Sub


--
Don Guillett
SalesAid Software

"Sinjin341" wrote in message
...

Thanks Don,

Can we go a little further with this? I see moving the data is
fairly easy. Now, how can I move the data to the end of the list after
every new entry? This list is growing and I won't be putting the
information in the same cell. Also, I would like to move this data
without the current cell formatting.

Thanks Again :)
Sinjin341


--
Sinjin341
------------------------------------------------------------------------
Sinjin341's Profile:
http://www.excelforum.com/member.php...o&userid=14616
View this thread: http://www.excelforum.com/showthread...hreadid=262444