Sample_1は、入力用シートで特定のセルへの入力だけを行わせるため、不要なセルへの移動を禁止する例です。 これにより初心者の入力を適切なセルへ誘導することができます。
Sample_2は、そのとき選択された範囲の内容に対して何らかの処理をさせるためのコードです。
Sample_3は、今セルが選択されているのか、セル以外の図形やボタン等が選択されているのか判定する例です。

Public Sub Sample_1()
'セルが移動できる範囲を限定

    Sheet1.ScrollArea = "B2:E7"
    
End Sub

Public Sub Sample_2()
'選択範囲の数値のみを1/100にする

    Dim rC As Range
    
    
    For Each rC In Selection
        If IsNumeric(rC.Value) Then
            rC.Value = rC.Value / 100
        End If
    Next rC
    
End Sub

Public Sub Sample_3()
'セルが選択されているかチェック

    If TypeName(Selection) = "Range" Then
        MsgBox "Cell  " & ActiveCell.Address
    Else
        MsgBox "Not Cell  " & TypeName(Selection)
    End If
    
End Sub

Public Sub Sample_4()
'選択範囲に数式が入力されているかチェック

    Dim rC As Range
    Dim Count As Long
    
    
    For Each rC In Selection
        If rC.HasFormula Then
            Count = Count + 1
        End If
    Next rC
    MsgBox Count
    
End Sub

Public Sub Sample_5()
'セルのアドレスを取得

    '絶対参照アドレス
    MsgBox ActiveCell.Address
    
    '相対参照アドレス
    MsgBox ActiveCell.Address(False, False)
    
    'R1C1形式アドレス
    MsgBox ActiveCell.Address(, , xlR1C1)
    
End Sub