My Code takes too long to execute

Private Sub Worksheet_Change(ByVal Target As Range)
'Place the word SITE in the Target Cell if it is Blank
If Not Application.Intersect(Target, Range("B5,B9,B13,E5,E9,E13,H5,H9,H13,K5,K9,K13,N5,N9,N13,Q5,Q9,Q13,T5,T9,T13")) Is Nothing Then
If Target.Value = "" Then Target.Value = "Site"
End If
If Range("K2").Value <> "" Then Range("K2").Value = UCase(Range("K2").Value)
End Sub

Is there a faster execution scenario with this?