Sorting based on corresponding cell

Well, for some reason, now it sends my sorting results to the end of the sheet, but here is the coding.

    Range("D3:D1000").Select
    Range("A3:d1000").Sort Key1:=Range("D3"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    
End Sub

What i am wanting is for it to sort based on the origin, and then combined like part numbers' quantites, and place the result starting at row 3.