autosorting two attached columns

[Guest]

I am creating an invoice with the following auto sort function:

Private Sub Worksheet_Change(ByVal Target As Range)
Range("d10:d28").Sort Key1:=Range("d10"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

D column is product codes, but the C column is quantities. such as:
C D
4 95733
12 97003
1 55691

I need the quantities to move with the product codes when I enter new codes.
The D column is sorting correctly, but the C column quantities stay put. Any
help would be appreciated.

 

[Dave Peterson]

You're only sorting D1028.

Maybe you want to use C1028 or something else??????

 

[merjet]

Change: Range("d10:d28").Sort
To: Range("c10:d28").Sort

Merjet

 

[Guest]

Yes, that did it. Much thanks.

You're only sorting D1028.

Maybe you want to use C1028 or something else??????