Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Application.UserName
    Case "Иванов Иван Иванович", "Петров Пётр Петрович" 'Ограничение по пользователям. Этим можно, остальным нельзя.
    Case Else
        Dim notEmptyRange As Range
        Application.EnableEvents = False
        If ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 23) Is Nothing Then
            If ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23) Is Nothing Then
                Set notEmptyRange = Nothing
            Else
                Set notEmptyRange = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23)
            End If
        Else
            If ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23) Is Nothing Then
                Set notEmptyRange = ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 23)
            Else
                Set notEmptyRange = Union(ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 23), ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 23))
            End If
        End If
        If Not notEmptyRange Is Nothing Then
            If Intersect(Target, notEmptyRange) Is Nothing Then
                notEmptyRange.Cells(1).Select
            End If
        End If
        Application.EnableEvents = True
    End Select
End Sub