Dolu hücre sayısı kadar seçip kopyalama

[isteobenim]

(alfabatik) değeri olan hücreleri nasıl sildirebiliriz.

Sub kopyala_()
i = WorksheetFunction.CountA(Range("A:A"))
Range("E2").Select
Selection.Copy
Range("E3:E" & i).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub

Selamlar,

Yukarıdaki kod ile yapılan işlemi daha basit bir yöntem ile yapılması mümkünmüdür acaba?

E2 hücresindeki veriyi copyalayarak E sütununa A sütünündaki dolu hücre sayısı kadar seçerek yapıştırıyor.

 

[turan1971]

Sub kopyala_()
i = WorksheetFunction.CountA(Range("A:A"))
Range("E2").Copy Destination:=Range("E3:E" & i)
ActiveWorkbook.Save
End Sub

 

[isteobenim]

Teşekkürler,

2.bir soru olarak çalışma sayfasındaki bütün harf (alfabatik) değeri olan hücreleri nasıl sildirebiliriz.