VBA For Creating Queue/Productivity Tracker

[OliveTree]

I'm a little stuck on a project. I'm looking to create a sort of hybrid work queue and productivity tracker. I have a list of Employees and the number of evaluations and supervised hours required for each. I've written the start of the VBA for the first agent off the list to be pulled in as follows:
Sub Add()
Rows("2:2").Insert shift:=xlDown
Range("o2").Copy
Range("A2").PasteSpecial
ActiveCell.Offset(0, 1) = Now
Range("p2").Copy
Range("b2").PasteSpecial
ActiveCell.Offset(0, 1) = Now
Range("q2").Copy
Range("c2").PasteSpecial
ActiveCell.Offset(0, 1) = Now
Range("A:B").Sort Key1:=Range("B1"), order1:=xlAscending, Header:=xlYes
End Sub

I built a button that runs the macro.

Now, what I would like it to do is when I've completed the agent and click the Agent Completed button to insert the current time. (Productivity Element)

The next part is that I'm hoping once the first agent is completed, clicking Next Agent will pull the next Agent in the list. (Work Queue Element)