name = "Chart";
    nrname = Table[StringJoin[name, ToString[j]], {j, 1, 5}];

    sscsv =
      Table[
        Import["C:\\Filepath\\graph_" <> ToString[i] <> ".csv", "Data",
          "HeaderLines" -> 1],
        {i, 5}];

    s1 = Abs[sscsv[[1]]];
    s5 = Abs[sscsv[[5]]];

    ss1 = s1[[All, {2, 3}]];
    ss5 = s5[[All, {2, 3}]];

    sss1 = Cases[ss1, {_, x_ /; x > 8.9}];
    sss5 = Cases[ss5, {_, e_ /; e > 8.9}];

    Labeled[
      ListLinePlot[{sss1, sss5},
        PlotRange -> {{40, 47}, {0, 360}},
        PlotStyle -> {{Red, Thick}, {Blue, Thick}},
        PlotLegends ->
          Placed[{"Graph 1", "Graph 2"}, Right],
        Ticks ->
          {{5, 10, 15, 20, 25, 30, 35, 40, 45, 50},
           {0, 25, 50, 75, 100, 125, 150, 175, 200, 225, 250, 275,
            300, 325, 350, 375, 400}},
        PlotLabel ->
          Style[name, FontFamily -> "Arial", FontSize -> 20, FontColor -> Black],
        GridLines -> Automatic,
        Filling -> {1 -> {2}}],
      {"Axis 1", " Axis 2"}, {Bottom, Left},
      RotateLabel -> True]