在VBA中，如果你想要把单元格中的前9位删除，你可以使用以下代码：

```

Sub deleteFirst9Characters()

For Each cell In Selection

cell.Value = Right(cell.Value, Len(cell.Value) - 9)

Next cell

End Sub

```

这个代码将会遍历你所选中的每个单元格，并将每个单元格的值设为它原来的值去掉了前9位字符以后的结果。

在这个代码中，我们使用了VBA中的Right函数和Len函数。Right函数用于截取一个字符串的右侧指定长度的字符，而Len函数可以返回一个字符串的长度。我们通过使用Len函数获取字符串长度，然后减去9，就可以得到需要保留的字符数量。最后，我们就可以使用Right函数来获取我们需要的字符串，然后将它赋值给单元格的值。

总的来说，这个代码非常简单易懂，而且可以轻松地实现把单元格中前9位删除的功能。