Hi, gm2612,

regarding the sorting: my bad, I just took the wrong area.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G7:G" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then
  With Sheets("Sheet1")
    .Range("C30:D36").Value = .Range("C14:D20").Value
    .Range("C30:E36").Sort Key1:=.Range("D30"), _
        Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, _
        MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
  End With
End If
End Sub
Again: your should check your formulas and sections, they might not meet with your requirements.

Ciao,
Holger