Sub jjj_copy_to_left()
    Dim rngTarget As Range, cl As Range
    
    If TypeName(Selection) <> "Range" Then Exit Sub
    With Selection.Parent
        Set rngTarget = Intersect(.Range("E5:E10"), Selection)
    End With
    If rngTarget Is Nothing Then Exit Sub
    For Each cl In rngTarget
        If Len(cl.Value) > 0 Then cl.Offset(, -1).Value = cl.Value
    Next cl
End Sub