=СУММПРОИЗВ((R2C1:R[-1]C1=RC[-3])*(R2C2:R[-1]C2=RC[-4]))

=СУММПРОИЗВ((R2C1:R3451C1=RC[-3])*(R2C2:R3451C2=RC[-4])*СТРОКА((R2C1:R3451C1)))

Function Square#(s$)
  Dim re
  Set re = CreateObject("VBScript.RegExp")
  re.Pattern = "\*(\d+\*\d+)"
  If re.test(s) Then Square = Evaluate(re.Execute(s)(0).submatches(0)) / 1000000
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row <> 4 Then Exit Sub
  If Target.Column < 2 Or Target.Column > 13 Then Exit Sub
  Application.EnableEvents = False
  Target.Offset(3) = Target.Offset(3) + 1
  Target.Offset(5) = 0
  Application.EnableEvents = True
End Sub