If 2 = 2 Then
    ActiveCell.Formula = "=P1+P2"
Else
    ActiveCell = Range("P1").Value + Range("P2").Value
End If

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox Target.Address
End Sub

Range(“A1”)=1
Range(“A3”)=1

'btn15 (компонент: button, атрибут: onAction), 2007
Sub NullSave1(control As IRibbonControl)
Savetest
End Sub

' Aux function: max value of arguments
Function Max(ParamArray Values())
  Dim x
  For Each x In Values
    If x > Max Then Max = x
  Next
End Function

' Последняя строка на листе Sh
' Если Sh не задан, то используется активный лист
' Если VisibleOnly=True, то результат только для видимых ячеек
Function LastRow(Optional Sh As Worksheet, Optional VisibleOnly As Boolean) As Long
  Dim SpecCells(), x, a$, i&, Rng As Range
  SpecCells = Array(xlCellTypeConstants, xlCellTypeFormulas, xlCellTypeComments)
  On Error Resume Next
  If Sh Is Nothing Then Set Sh = ActiveSheet
  Set Rng = Sh.UsedRange
  If VisibleOnly Then Set Rng = Rng.SpecialCells(xlCellTypeVisible)
  For Each x In SpecCells
    a = Rng.SpecialCells(x).EntireRow.Address(0, 0)
    i = Max(i, CLng(Mid(a, InStrRev(a, ":") + 1)))
  Next
  LastRow = i
End Function

Sub sub1()
MsgBox LastRow
End Sub