Macro para agregar información sobre celdas vacías en una base de datos

Necesito de su ayuda para resolver un problema con una base de datos. El problema es que tengo dos perfiles de usuarios que ingresan información en un tablero que guarda esa información en una base de datos pero necesito que el segundo usuario llene la información y que ésta se vaya llenando en la misma base de datos. Para explicarme un poco mejor les comento que el primer usuario recibe una información de un cliente y lo que hace es registrarla y asignarla al segundo usuario que luego la recibe y regista que lo hizo, la idea es saber el tiempo que transcurre entre que el primer usuario recibe la información del cliente y el momento en que el segundo usuario la recepta para darle trámite.

La macro que tengo va guardando los datos debajo de las filas creadas por el anterior usuario y lo que necesito es que complete la información luego de lo que ingresó el primero, pero el primer usuario le puede asignar varias operaciones de clientes al segundo mientras que el segundo las recibe una ves o varias pero son muchas menos porque puede registrar que recibió varias en un sólo ingreso de información. Lo que necesitaría es que de acuerdo al nombre del segundo usuario se guarde en la base de datos la fecha en que recibió cada operación del cliente (las operaciones pueden ser asignadas en distintas fechas mientras la recepción es en una fecha).

Éstas son mis macros para el primero y segundo usuarios:

Set RangoDatos = ThisWorkbook.Worksheets("BDD").Cells(1, 1).CurrentRegion
'
NuevaFila = RangoDatos.Rows.Count + 1
'
With ThisWorkbook.Worksheets("BDD")
    .Cells(NuevaFila, 1).Value = ThisWorkbook. Sheets(2). Range("D20")
    .Cells(NuevaFila, 2).Value = ThisWorkbook. Sheets(2). Range("D11")
    .Cells(NuevaFila, 3).Value = ThisWorkbook. Sheets(2). Range("D8")
    .Cells(NuevaFila, 4).Value = ThisWorkbook. Sheets(2). Range("E11")
    .Cells(NuevaFila, 5).Value = ThisWorkbook. Sheets(2). Range("E14")
    .Cells(NuevaFila, 6).Value = ThisWorkbook. Sheets(2). Range("D16")
    .Cells(NuevaFila, 7).Value = ThisWorkbook. Sheets(2). Range("D14")
    .Cells(NuevaFila, 8).Value = ThisWorkbook. Sheets(2). Range("D18")
End With

2do usuario

Set RangoDatos = ThisWorkbook.Worksheets("BDD").Cells(1, 1).CurrentRegion
'
NuevaFila = RangoDatos.Rows.Count + 1
'
With ThisWorkbook.Worksheets("BDD")
    .Cells(NuevaFila, 1).Value = ThisWorkbook. Sheets(3). Range("D11")
    .Cells(NuevaFila, 2).Value = ThisWorkbook. Sheets(3). Range("C11")
    .Cells(NuevaFila, 9).Value = ThisWorkbook. Sheets(3). Range("D8")
    .Cells(NuevaFila, 10).Value = ThisWorkbook. Sheets(3). Range("E11")
End With