Satırdaki tüm hücreler boş ise o satırları kaydırmadan nasıl silebilirim?

[Akinero]

A'dan J'ye kadar yani 10 sütunlu bir excel dosyasında tüm sütunları boş olan satırları silmek için macro yardımıyla nasıl bir formül kullanabiliriz?
Yani satırların 10 hücresi de (A-J arası) boş ise silsin. 10 sütunluk bir satırın 1 hücresinde (sütununda) dahi değer varsa o satırı silmesin. Silme neticesi kayma olmasın.
Satır sayısı da örnek dosyadaki gibi 100 olsun.

Yardımlarınız için şimdiden teşekkürler

 

[murat_fidan]

A'dan J'ye kadar yani 10 sütunlu bir excel dosyasında tüm sütunları boş olan satırları silmek için macro yardımıyla nasıl bir formül kullanabiliriz?
Yani satırların 10 hücresi de (A-J arası) boş ise silsin. 10 sütunluk bir satırın 1 hücresinde (sütununda) dahi değer varsa o satırı silmesin. Silme neticesi kayma olmasın.
Satır sayısı da örnek dosyadaki gibi 100 olsun.

Yardımlarınız için şimdiden teşekkürler

Sub bossatırsil()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = lastRow To 1 Step -1
        If Application.WorksheetFunction.CountA(Range("A" & i & ":J" & i)) = 0 Then
            Rows(i).Delete
        End If
    Next i
End Sub

 

[Akinero]

Teşekkürler Murat bey