Makro/VBA ile ilk karakteri rakam olan hucrenin satirini silme

[mcdba]

Merhaba,
ilk karakteri rakam olan hucrelerin satirini komple silmek ve bosluk kalmayacak sekilde uste kaydirmak istiyorum. Makro/VBA kodu ne sekilde olmalidir? yardiminiz icin simdiden tesekkurler.
Ornek: ekteki gorselde bulunan G sutunundaki ilk karakteri rakam olan hucrelerin sutunlarinin komple silinerek uste kaydirilmasi

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub SİL()
    For X = [G65536].End(3).Row To 1 Step -1
    If IsNumeric(Left(Cells(X, "G"), 1)) = True Then Rows(X).Delete
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mcdba]

Hizli cevabiniz icin cok tesekkur ederim. Istedigim tam olarak buydu.
Saygilar.