With V_Sht
   V_Sht.Select
   For r = V_Sht.Cells(Rows.Count, 3).End(xlUp).Row To 3 Step -1
      bounce = Cells(r, 1).Value
      If WorksheetFunction.VLookup(bounce, Class_Rng, 2, False) <> "V" Then
         Cells(r, 1).EntireRow.Delete
      Else
      End If
   Next r
   For a = V_Sht.Cells(Rows.Count, 3).End(xlUp).Row To 3 Step -1
      For b = V_Sht.Cells(Rows.Count, 3).End(xlUp).Row To 3 Step -1
         If Cells(a, 2).Value = Cells(b, 2).Value Then
            Cells(a, 8).Value = WorksheetFunction.Sum(Cells(a, 8), Cells(b, 8))
         Else
         End If
      Next b
   Next a
End With