А сега де

Кажете как като щракна в клетка В25 примерно ,стойноста в Р25 да стане 0 тази стойност 0 да мога да я променям,но като щракна в В25 пак да се нулира

в макроите на текущия шийт сложи

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$25" Then Range("R25").Value = "0"
End Sub

Супер си точно това исках