Separar con guiones letras y números

El código de la macro es el siguiente, coge todos los datos de la columna A y los pone ya modificados con los guiones en la columna B.
 cuen = Range("A" & Cells.Rows.Count).End(xlUp).Row
 Dim acumula As String
 For i = 1 To cuen
  acumula = ""
  If Len(Cells(i, 1)) > 1 Then
   For c = 1 To Len(Cells(i, 1))
    If c > 1 Then
     If IsNumeric(Mid(Cells(i, 1), c - 1, 1)) And Not IsNumeric(Mid(Cells(i, 1), c, 1)) Or Not IsNumeric(Mid(Cells(i, 1), c - 1, 1)) And IsNumeric(Mid(Cells(i, 1), c, 1)) Then
      acumula = acumula + "-"
      If IsNumeric(Mid(Cells(i, 1), c, 1)) Then
       acumula = acumula + Str(Mid(Cells(i, 1), c, 1))
      Else
       acumula = acumula + Mid(Cells(i, 1), c, 1)
      End If
     Else
      If IsNumeric(Mid(Cells(i, 1), c, 1)) Then
       acumula = acumula + Str(Mid(Cells(i, 1), c, 1))
      Else
       acumula = acumula + Mid(Cells(i, 1), c, 1)
      End If
     End If
    Else
     If IsNumeric(Mid(Cells(i, 1), c, 1)) Then
       acumula = Str(Mid(Cells(i, 1), c, 1))
      Else
       acumula = Mid(Cells(i, 1), c, 1)
      End If
    End If
   Next c
   acumula = Replace(acumula, " ", "")
   Cells(i, 2) = acumula
  Else
   Cells(i, 2) = Cells(i, 1)
  End If
 Next i

Valora mi respuesta.

No estoy muy puesta en esto, pero lo que hice fue crear una macro en la hoja en la que tengo los datos y luego la edite con el editor de visual basic y copie el código que me enviaste. Pues bien, si l que hice es correcto, la ejecutar la macro me da error en la línea
 For i = 1 To cuen
Si te sirve de algo decirte que tengo el excel 2000.
Espero que me puedas seguir ayudando. De nuevo gracias anticipadas