Excel - ASIGNAR FECHA AUTOMÁTICA

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Celda As Range

    For Each Celda In Target 'Para cada celda modificada

        'Si la celda modificada está en la columna 9 y entre las filas 8 y 14

        If Celda.Column = 9 And _

           Celda.Row >= 8 And Celda.Row <= 14 Then

           'Si contiene SERVICIO

            If UCase(Celda) = "SERVICIO" Then

                'Introducimos la fecha actual dos celdas más a la derecha

                Celda.Offset(0, 2) = Date

            'Si contiene DISPONIBLE

            ElseIf UCase(Celda) = "DISPONIBLE" Then

                'Borramos el contenido de dos celda más a la derecha

                Celda.Offset(0, 2).ClearContents

            End If

        End If

    Next

    Set Celda = Nothing

End Sub