Quicker VBA

[Dazzybeeguy]

I have the following which works but just wanted to see if it could be written to be more succinct / make the VBA quicker

Sub Write_Up_Delete()
'
' Write_Up_Delete Data Macro
'

'
    Application.ScreenUpdating = False
    Range("D5:L5").Select
    Selection.ClearContents
    Range("d8").Value = "Happy "
    Range("D9:L9").Select
    Selection.ClearContents
    Range("D10:L10").Select
    Selection.ClearContents
    Range("d15").Value = "?"
    Selection.ClearContents
    Range("D16:L16").Select
    Selection.ClearContents
    Range("d20").Value = "Well"
    Range("D21:L21").Select
    Selection.ClearContents
    Range("d16").Formula = "=IF(d15 = ""?"",""???"",IF(d15 = ""yes"",""**Insert Ref here**"",""???""))"
    Range("D5:L5").Select
End Sub

Thanks People.

 

[Georgiboy]

Maybe as below:

Sub Write_Up_Delete()
    Range("D8").Value = "Happy "
    Range("D5:L5,D9:L9,D10:L10,D16:L16,D21:L21").ClearContents
    Range("D15").Value = "?"
    Range("D20").Value = "Well"
    Range("D16").Formula = "=IF(D15 = ""?"",""???"",IF(D15 = ""yes"",""**Insert Ref here**"",""???""))"
End Sub