Moving a range to end of list

[Sinjin341]

Thanks Don,

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

Thanks Again
Sinjin34

 

[Don Guillett]

try this

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