To už som medzičasom vyriešil ano bolo to tam ale aký zápis bude pri viacerých takýchto kombinácii?

môžem to zapísať aj takto?

do hárku zadefinovať:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Target.Worksheet.Range("P16")) Is Nothing Then CalculatePercentage
    If Not Intersect(Target, Target.Worksheet.Range("M16")) Is Nothing Then SetNewBase
    
    If Not Intersect(Target, Target.Worksheet.Range("P17")) Is Nothing Then CalculatePercentage
    If Not Intersect(Target, Target.Worksheet.Range("M17")) Is Nothing Then SetNewBase
End Sub

Public BaseNumber As Variant

Sub CalculatePercentage()
    Application.EnableEvents = False
    Range("M16").Value = BaseNumber - (BaseNumber * Range("P16").Value)
    Application.EnableEvents = True
    If Range("P16").Value = 0 Then Range("M16").Value = BaseNumber

    Application.EnableEvents = False
    Range("M17").Value = BaseNumber - (BaseNumber * Range("P17").Value)
    Application.EnableEvents = True
    If Range("P17").Value = 0 Then Range("M17").Value = BaseNumber
End Sub

Sub SetNewBase()
    BaseNumber = Range("M16").Value
End Sub
Sub SetNewBase1()
    BaseNumber = Range("M17").Value
End Sub