Crea un Control de pedidos en Excel

Código para Módulo

Sub info()
Dim fechaactual As Date
fechaactual = Date

numerodedatos = Hoja1.Range("E" & Rows.Count).End(xlUp).Row

    For fila = 3 To numerodedatos
    detalle = Hoja1.Cells(fila, 5).Value
    fec = Hoja1.Cells(fila, 6).Value
        
        If detalle = "Entregado" And fec = "" Then

            Hoja1.Cells(fila, 6) = fechaactual
        End If
        
        If detalle = "Pendiente" Then
            Hoja1.Cells(fila, 6) = ""
        End If
        
        
    Next
End Sub

Código dentro de la hoja para llamar a la macro

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
info
Application.EnableEvents = True

End Sub