chart change on my range

Dear all
I show you what I want in my attach file please help me on it and show me in the file your solution.
thanks in advanced

thanks for your answering to my question
but I dont want use pivot table
I want my user insert date in 2 cells by himself like that I show you in my file

Hi pedjvak,
try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("D2:D3")) Is Nothing Then Exit Sub

Dim br&, lr&
On Error Resume Next: Err.Clear
With Sheets("Sheet1")
    br = .Columns(2).Find(Range("D2").Value, lookat:=xlWhole).Row
    lr = .Columns(2).Find(Range("D3").Value, lookat:=xlWhole).Row
    If Err Then Err.Clear: MsgBox "incorrect data", 64: Exit Sub
    
    If lr <= br Then MsgBox "oops", 64: Exit Sub
    ThisWorkbook.Names("nom").RefersTo = "=Sheet1!" & .Range(.Cells(br, 2), .Cells(lr, 2)).Address
    ThisWorkbook.Names("qnt").RefersTo = "=Sheet1!" & .Range(.Cells(br, 4), .Cells(lr, 4)).Address
End With
End Sub

try to create these named ranges manually (this should be done once)
see also attached file

Thanks and hope you will safe & success