Como simplificar esta macro

Te dejo 2 opciones. Te comento que ElseIf va todo junto
Sub nada()
'x Elsamatilde
x = Range("A1").Value
'un modo: juntando las opciones que devuelven el mismo valor
If x = 0 Or x > 10.5 Then
    Range("d5").Value = "0"
ElseIf x <= 10 Then
    Range("d5").Value = "1"
ElseIf x = 10.5 Then
    Range("d5").Value = ".5"
End If
'otro modo: con Select Case
Select Case x
Case Is = 0
    Range("d5").Value = "0"
Case Is <= 10
    Range("d5").Value = "1"
Case Is = 10.5
    Range("d5").Value = ".5"
Case Is > 10.5
    Range("d5").Value = "0"
End Select
End Sub
Sdos. No olvides finalizar la consulta