Sub AddRecordset()
Dim iRng As Range
Dim iCl As Range
Dim lRow&, J&
On Error Resume Next
Application.ScreenUpdating = False
Set iRng = Worksheets("Лист1").Range("D5,F5,H5,J5,L5,N5,D9,F9,H9,J9")
With Worksheets("Лист5")
  lRow = .Cells(.Rows.Count, "F").End(xlUp).Row
  lRow = IIf(lRow < 3, 3, lRow + 1)
  J = 6
  For Each iCl In iRng.Cells
    .Cells(lRow, J) = iCl.Value
    J = J + 1
  Next
End With
iRng.ClearContents
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Columns(1)) Is Nothing And Target.Count = 1 Then
  Const vPlus = 50  'прибавляемое число
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Target = Target + vPlus
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

=СУММПРОИЗВ(($H$3:$S$64=$B71)*($A$3:$A$64=F$69)*($O$3:$O$64<>""))