Deletes a range and then fills the resulting gap by shifting the other cells to the left:
Sub deleteLeft() range("C6:C10").delete xlToLeft End Sub