VBA: WorksheetFunction.Sum() no procedimento Worksheet_Change

Eis um código VBA que me serviu para ir registando quantidades de produtos em determinadas células, fazendo com que, na coluna seguinte e nas células correspondentes, fossem sendo adicionadas essas quantidades às quantidades anteriormente apuradas, como no exemplo – imagem:

 

 

 

Option Explicit

‘—————————————————————————————
‘ Procedure : Worksheet_Change
‘ Author    : JRod
‘ Date      : 03/03/2013
‘ Purpose   : Adiciona o valor inserido numa célula da coluna D ao valor que se encontra na célula correspondente da coluna E
‘—————————————————————————————
‘
Private Sub Worksheet_Change(ByVal Target As Range)

Dim r As Long

r = Target.Row

If Not Intersect(Target, Columns(“D:D”)) Is Nothing Then
Select Case IsNumeric(Target)
Case True: Range(“E”& r) = WorksheetFunction.Sum(Range(“D”& r), Range(“E”& r))
Case Else: ‘não faz nada
End Select

End If

End Sub