如何在VBA Excel中编写Shift +左箭头键来更改范围？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:D10")) Is Nothing Then
        If Application.Intersect(Target, Range("A1:D10")).Address = Target.Address Then
            If Application.CutCopyMode = False Then
                If Not Application.InputBox("Do you want to change the range?", "Confirmation", Type:=2) = vbOKCancel Then
                    Application.EnableEvents = False
                    Application.Undo
                    Application.EnableEvents = True
                End If
            End If
        End If
    End If
End Sub