Use a checkbox to copy a row and paste at end

Hi,

Relatively new to VBA so please bear with me.

I am looking to add a checkbox button that when clicked will replicate the row of data at the end of the excel worksheet and activate a form to add additional info to the current row on the excel. Basically this is to mark a task as complete, then reopen the task at the bottom with new dates, so that it can be undertaken in a few weeks time.

I have produced a form for the initial data entry as follows...

CODE

Private Sub CommandButton1_Click()

Dim LastRow As Range
Dim TaskManagerTable As ListObject

'Add row to bottom of task manager table
ActiveSheet.ListObjects("Tasks").ListRows.Add

'Enter data from form into new row
Set TaskManagerTable = ActiveSheet.ListObjects("Tasks")
Set LastRow = TaskManagerTable.ListRows(TaskManagerTable.ListRows.Count).Range

With LastRow

'Get the highest number in column A and assign it to variable MaxNumber
MaxNumber = Application.WorksheetFunction.Max(Range("A:A"))

.Cells(1, 1) = MaxNumber + 1
.Cells(1, 2) = Now
.Cells(1, 4) = TaskType.Value
.Cells(1, 3) = IssuerName.Value
.Cells(1, 5) = DeptName.Value
.Cells(1, 7) = RoutineNo.Value
.Cells(1, 6) = MachineNo.Value
.Cells(1, 9) = Description.Value

Unload TaskManagerForm

End With
End Sub

END CODE

The new form captures, TimeTaken, NoEmployees and DoneBy.

Hope someone can help.