Merhaba,

sorun devam ediyor mu? eğer devam ediyorsa aşağıdaki kodu kullanabilirsin.

SUTUN,SATIR VE BITIS olanları kendine göre düzenle ve kodu çalıştır.
Not çalıştırmadan önce dosyanın yedeğini almayı unutma

Sub NumaralariDuzenle()
    
    'Veriler Hangi Sütunda?
    SUTUN = "A"
    
    'VERİLER KAÇINCI SATIRDAN BAŞLIYOR
    Satir = 1
    
    'veriler kaçıncı satırda bitiyor?
    BITIS = 3
    
    
    For i = Satir To BITIS
        If Len(Range(SUTUN & i)) = 10 Then
            Range(SUTUN & i) = "90" & Range(SUTUN & i)
        ElseIf Len(Range(SUTUN & i)) = 11 Then
            Range(SUTUN & i) = "9" & Range(SUTUN & i)
        End If
    Next
    
End Sub