Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("H3:H40").ClearContents
Select Case True
Case Target.Rows.Count > 1
Case Not Intersect(Target,Range("B3:G40")) Is Nothing
Range("H" & Target.Row) = WorksheetFunction.Sum(Selection)
End Select
End Sub