Modify to ignore the first row.

[Guest]

Hello from Steved

How can I modify the below to ignore the first row please.

Sub AddSum()
r = Range("$D$1000").End(xlUp)
MsgBox "SUM:" & Application.WorksheetFunction.Sum(Range("D:G"))
End Sub

Thankyou.

 

[Leith Ross]

Hello Steved,

Sub AddSum()
r = Range("$D$1000").End(xlUp).Row
MsgBox "SUM:" & Application.WorksheetFunction.Sum(Range("D2:G"& r))
End Sub

Sincerely,
Leith Ross

 

[Guest]

Hello Leith from Steved.

Excellent

Thankyou.

 

[Guest]

Hello DataCollector from Steved

Thankyou.