Necesito eliminar la enumeración de la columna a de la Hoja Zuschitte y de la Hoja Stecker Buchse
'Actualizar hoja Zuschnitte y Stecker Buchse
Private Sub CommandButton124_Click()
'DECLARAR VARIABLES
Dim pass As String
Dim sh1 As Worksheet, sh2 As Worksheet
Dim i As Long, n As Long
'
'AMBIENTE
Application.ScreenUpdating = False
'
'DATOS INICIALES
pass = "chevo"
If Me.TextBox14.Value = "" Then
Call MsgBox("Diese Länge würde schon berechnet", vbInformation, "nicht speichern ")
Exit Sub
End If
Set sh1 = Sheets("Zuschnitte")
Set sh2 = Sheets("Stecker Buchse")
'
i = 7 'fila inicial
n = 1
Do While sh1.Range("B" & i).Value <> ""
n = sh1.Range("B" & i).Value + 1
i = i + 1
Loop
'ACTUALIZAR hoja Zuschnitte
sh1.Unprotect pass
sh1.Range("B" & i).Value = n
sh1.Range("C" & i).Value = TextBox16.Text 'VERBINDUNG
sh1.Range("D" & i).Value = TextBox2.Text 'Querschnitt
sh1.Range("E" & i).Value = TextBox17.Text 'LÄNGE
sh1.Range("F" & i).Value = TextBox14.Text
sh1.Range("G" & i).Value = TextBox23.Text 'ISOLATION
sh1.Protect pass
'
i = 7 'fila inicial
n = 1
Do While sh2.Range("B" & i).Value <> ""
n = sh2.Range("B" & i).Value + 1
i = i + 1
Loop
sh2.Unprotect pass
sh2.Range("B" & i).Value = n
If TextBox16 = "ZWL" Then
sh2.Range("C" & i).Value = ""
sh2.Range("F" & i).Value = ""
sh2.Range("D" & i).Value = ""
sh2.Range("E" & i).Value = ""
ElseIf TextBox16 = "ZWL Si" Then
sh2.Range("C" & i).Value = ""
sh2.Range("F" & i).Value = ""
sh2.Range("D" & i).Value = ""
Else: sh2.Range("C" & i).Value = TextBox16.Text 'VERBINDUNG
sh2.Range("F" & i).Value = TextBox14.Text '
sh2.Range("D" & i).Value = TextBox2.Text '
sh2.Range("E" & i).Value = TextBox17.Text 'gte zahl
End If
'Para ordenar
sh2.Range("C6:G37").Sort key1:=sh2.Range("C6"), order1:=xlAscending, Header:=xlYes
sh2.Protect pass
Call Main 'PROGRESS BAR
Application.ScreenUpdating = True
MsgBox "Die Daten wurden gespeichert", vbApplicationModal, ""
End SubEse codigo pertenece a la hoja zuschnitte y necesito eliminar la eliminacion de la columna Aaaaaaaaaaaaaaa, debido a con la ordenacion alfabetica los numeros se desordenan y es mejor sin numeros.
