VBA to : Total Sum cell allows for manual entry or Sum if cells have value

[StrawberryDreams]

Looking for VBA to allow manual entry for the Total Cell if both Cell 1 & Cell 2 are empty. If either Cell 1 or Cell2 have a value but the other is blank then still Sum total as the formula in total.

Total	3
Cell 1	2
Cell 2	1

 

[DanteAmor]

Put the following code in your sheet events.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim cell_1 As Range, cell_2 As Range, cell_T As Range, rng As Range
 
  Set cell_T = Range("C2")    'fit the cells to your needs
  Set cell_1 = Range("C3")
  Set cell_2 = Range("C4")
 
  Set rng = Intersect(Target, Union(cell_1, cell_2, cell_T))
  If Not rng Is Nothing Then
    Application.EnableEvents = False
      If cell_1 = "" And cell_2 = "" Then
        If cell_T.HasFormula Then cell_T.Value = ""
      Else
        cell_T.Formula = "=SUM(" & cell_1.Address & ":" & cell_2.Address & ")"
      End If
    Application.EnableEvents = True
  End If
End Sub

Note Sheet Event:
Right click the tab of the sheet you want this to work, select view code and paste the code into the window that opens up.