如何删除excel vba中列中的特定单元格（左侧有移位单元格）选项

Question

我的输入数据如下。

输入

        10-08-2012      15-08-2012      
sid abc001  0   abc001  0   abc001  
status  p   0   p   0   s   
intime  10:00   0   10:00   0   09:00   
outtime 19:00   0   19:00   0   18:00   
Total   9   0   9   0   9   

这里我需要通过将单元格数据移到左侧来删除列中的特定单元格。我已经通过下面的代码来获得所需的输出。

Sub Delete_Range_To_ShiftLeft()

    Range("C3:C7").Delete Shift:=xlToLeft

End Sub

必需的输出：

        10-08-2012  15-08-2012          
sid abc001  abc001  abc001          
status  p   p   s           
intime  10:00   10:00   09:00           
outtime 19:00   19:00   18:00           
Total   9   9   9

如果你有更好的办法，可以告诉我吗？