Application.ScreenUpdating = False
        ActiveWindow.ScrollRow = ActiveWindow.ScrollRow + 1 'шаг вверх
        ActiveWindow.ScrollRow = ActiveWindow.ScrollRow - 1  'шаг обратно
          Application.ScreenUpdating = True

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Count > 1 Then Exit Sub
    If ActiveCell.Row <= 5 Then Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit Sub
    ArrComplete
If ActiveCell.Column = 2 Then
     ActiveWindow.FreezePanes = False
    With Me.TextBox1
        .Top = ActiveCell.Top:
        .Left = ActiveCell.Left
        .Width = ActiveCell.Width
        .Height = 20
        .Activate
        .Text = ActiveCell.Value:
        .Visible = True
    End With
    With Me.ListBox1
        .Clear
        .Visible = False
        .Top = ActiveCell.Top + Me.TextBox1.Height + 2
        .Width = ActiveCell.Width
        .Left = ActiveCell.Left
        .Height = 150
    End With
Else
    If ActiveWindow.FreezePanes = False Then
        Application.EnableEvents = False
        Range("c5").Select
        ActiveWindow.FreezePanes = True
        Target.Select
        Application.EnableEvents = True
    End If
    Me.TextBox1.Visible = False
    Me.ListBox1.Visible = False
End If
End Sub

Private Sub ListBox1_Click()
With Me.ListBox1
    ActiveCell.Value = .Value
'    Me.TextBox1.Text = .Value
    Me.TextBox1.Visible = False:
    .Visible = False
End With

        Range("c5").Select
        ActiveWindow.FreezePanes = True

Application.EnableEvents = True
End Sub