Macro - New row ++

[Cann0n]

Hi, first post.

Searched for, but did not find a solution to my problem.

I am making a Action List in sheet "ActionList", the list has 6 col:

No | Start date | Description | Link | Resposible | Finished

I am trying to make a macro that:
1 adds a new row below the last row
2 adds +1 to the number in the "No" col, starting at "001"
3 adds current date in "Start Date" col
4 and finally adds a button or check box in "Finished" col.

When clicking the box in "Finished" col, that row will be cut and pasted to a different sheet, "Finished", in the same workbook. All the finished items would also have to inserted below eachother in the order they were finished.

Is this doable?

Thanks in advance.

 

[arsalan701]

To find last non empty cell in the sheet use the below
Range("a65536").end(xlup).offset(1,0).select
then
activecell.value=activecell.offset(-1,0)+1
if the value on the top is 100 then the value in new cell will be 101
for date use the below line
activecell.offset(0,1).value=vba.date
For the checbox add a button from developer tab and sets its value to a cell.

Then you can have a macro button sothat when clicked will copy this data to desired sheet.