help with code for multiplying

Can someone please describe what this code is doing in detail. Thanks.

Sub jkd()
Dim r As Long
r = Cells(1).End(4).Row
With Cells(2, "d").Resize(r - 1)
    .Value = Evaluate(.Offset(, -2).Address & "*" & .Offset(, -1).Address)
End With
End Sub