boş satırları formülle yok etme

[greatkeops]

selam arkadaşlar, şöyle bir sorum var:
a11 hücresinden a 57 hücresine kadar bir liste var. bu listenin satırları diğer sayfalardaki tercihlere göre doluyor veya boş kalıyor. Diyelim ki a11 hücresinde "türkçe" yazıyor, a12 hücresi boş, a13 hücresinde "matematik" yazıyor...vb. 6 satır boşluktan sonra a19 hücresinde sosyal yazıyor. Bu böyle a 57 hücresine kadar devam ediyor. R11 hücresine veya R sütununa formülle aralardaki boş satırları kaldırarak sadece dolu satırları alt alta yazabilir miyim? Örnek dosyayı gönderiyorum. Yardımcı olursanız sevinirim.

 

[Yüksel Varlı]

Formülle değil de kodla isteseydiniz şöyle bir çözüm olurdu:

Sub Düğme1_Tıklat()
Dim son, i As Integer
son = ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
For i = son To 1 Step -1
If Range("A" & i).Value = "" Then
If WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
End If
Next
End Sub