Do it in a single statement as lecxe shows but don't make it absolute

Worksheets("Target").Range("B2:B5").Formula = _ 
"=SUMPRODUCT((Data!$A2:$A" & DataLastRow & " =Target!A2)*Data!$B2:$B" & DataLastRow & ")"