need macro: erase the last 10 digits of active cell then down 1

[WallyGator]

tried recording a macro to erase the last 10 digits within the active cell
and then go one line down. However, when I tried to use the macro a second
time instead of erasing the the last 10 digits it just copies the previous
active cell to the new one.

This is how the recorded macro came out

as you can see the 1st program line just shows the finished result and not
how it deleted the 10 digit phone # at the end. When utiliizing this macro
again it just places the Tullahoma, TN 37388 in the active cell I'm trying to
correct.

Sub erase10()
'
' erase10 Macro
' Macro recorded 7/22/2008 by Superior Medical
'
' Keyboard Shortcut: Ctrl+e
'
ActiveCell.FormulaR1C1 = "Tullahoma, TN 37388 "
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

 

[Wigi]

With ActiveCell
..Value = Left(.Value,len(.value)-10)
..Offset(1).Select
End With

 

[WallyGator]

With ActiveCell
.Value = Left(.Value,len(.value)-10)
.Offset(1).Select
End With