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.