Here you go

Selection.Delete Shift:=xlLeft