Al ejecutar una macro que también cambie el texto de la celda

Tengo un listado de cotizaciones, cuando el cliente concreta la venta, en una celda aparece "agradecimiento" y a través de una macro, envía al correo del cliente un agradecimiento por su compra, el problema esta en la el texto de la cela "agradecimiento" se queda igual y si otro cliente concreta la compra al ejecutar la macro le vuelve a enviar el correo al primer cliente, necesito que al ejecutar la macro, cambie el texto para que no se repita el envío de agradecimientos, espero haberme explicado, la macro que uso para el envío de correos es la siguiente.

Ojala alguien me pueda apoyar con esto.

Como hago para que al ejecutar la macro de envío de correo cambie también el texto de la celda y así evitar repeticiones

Sub Enviar_Agradecimiento()

    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row

        If Cells(i, "H").Value = "Agradecimiento" Then

            Set dam = CreateObject("outlook.application").createitem(0)

            dam.To = Cells(i, "D").Value 'Contacto

            dam.Subject = "Agradecemos su preferencia"

            dam.Body = "Estimado/a : " & Cells(i, "C").Value & vbCr & vbCr & _

                       "Le agradecemos su preferencia al concretar " & _

                       "el pedido de la cotización : " & Cells(i, "A").Value & vbCr & vbCr & _

"Le recordamos que con su compra cuenta con acceso a garantía y soporte técnico. Saludos cordiales"

            dam.Send 'El correo se envía en automático

            'dam.Display 'El correo se muestra

        End If

    Next

    MsgBox "Correos enviados"

End Sub