Ampliar Macro

[lursaildi]

Gracias a Macro Antonio que me creo una macro, quisiera seguir evolucionándola pero  mis conocimientos de macros es muy pobre, quisiera mejorarla que la celda que está cortada diagonalmente vuelva a su estado sin borro la celda donde pone Din_Astm y si lo pone que el 50 lo coloque según el ejemplo y si pone cualquier dato diferente la celda de referencia sea ASTM, DIN, API el dato que ponga este centrado a la celda como el ejemplo y en la celda de la columna R también la corte diagonalmente como el ejemplo.

 

Si pone API_ASTM corte diagonalmente la celda de la columna P  y si borro los datos de API_ASTM deje la celda en estado original.

 

 

 

Muchas gracias por anticipado

 

Macro inicial

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If LCase(Target) = "din_astm" Then
    Application.Enable Events = False
    Target.Offset(0, 8).Select
    With ActiveCell
        .Value = 50
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .Borders(xlDiagonalUp).LineStyle = xlContinuous
    End With
End If
Application.EnableEvents = True
End Sub

 

 

 

Ejemplo2.xlsm