Registro de fecha en diferente columna cada que hago un pago

[Lidiarr]

Buenas noches, quisiera que me apoyaran a resolver el problema que tengo. tengo una base de datos la cual ya pude consultar datos, registrar, pero necesito un macro donde pueda ingresar en las columnas siguientes la fecha en realizan el pago en la misma fila (mismo registro) pero que registre por columna la fecha de pago. Por ejemplo

NOMBRE	FECHA DE PAGO	FECHA DE PAGO	FECHA DE PAGO	FECHA DE PAGO	FECHA DE PAGO	FECHA DE PAGO	FECHA DE PAGO
PEDRO	22/01/2021​	30/01/2021​	15/02/2021​	22/02/2021​
CRISTINA	10/01/2021​	15/01/2021​	28/01/2021​	30/01/2021​

Gracias por su atención

 

[novirus]

Buenas,

Por lo que entiendo quieres decir que una vez localizado el NOMBRE (A2) detecte la ultima columna y vaya añadiendo.

Puedes averiguar la ultima columna e ir recorriendo cada una hasta que este vacia y entonces colocar los datos.

For nEmp = 1 To MATRIZEMPLEADOS
    Range("A1").Select
    Set nRangoFind = Worksheets(ActiveSheet.Name).Cells.Find(What:=MATRIZEMPLEADOS(nEmp), After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    If Not nRangoFind Is Nothing And Err.Number = 0 Then
        LinEmp = nRangoFind.Row
        FinCol = Selection.End(xlToRight).Column 
        For nCol = 1 To FinCol
            'Aqui poner la comprobacion que exista una fecha y sino poner el valr
            Worksheets(strEstaPes).Cells(LinEmp, nCol).Value = VALOR FECHA        
        Next nCol
    End if
Next nEmp

Un saludo.