coding to add values until a certain limit

No problem...

i=0
While Sum=<Budget And i<10000
  sum=sum+sheet1.Cells(i+2,3).Value
  for cellloop=1 to 3
    sheet2.cells(i+2,cellloop).value=sheet1.cells(i+2,cellloop)
  next cellloop
  i=i+1
wend

Try that.

its perfect btw using this coding will result in the total cost of items more than budget. so i came up with this "sheet2.cells(i+2,cellloop).delete" to delete the last item. however, it is not working. do u know what is wrong?