Sütunlardaki verileri alt alta sıralama

[Excelexcellent]

Merhaba
Forumdan aldığım örnek kodlar ile sayfadaki satırlar arasında boş satır oluşturdum ancak A sütununda aradaki boş satırlara B sütunundaki verileri nasıl taşıyacağımı çözemedim.

Mesajım açıklayıcı olmayabilir. Dosyamı ekliyorum daha net anlaşılacaktır.
Yardımlarınız için teşekkürler.

 

[tahsinanarat]

Buna benzer bir çalışma vardı, kodlar şöyle olmalı.

Sub ayır()
    Dim alan As Range, sat As Long
    Application.ScreenUpdating = False
    Range("V2:V" & Rows.Count).ClearContents
    sat = 2
    For Each alan In Range("A2:B40")
        If alan.Column Mod 1 = 0 And alan <> "" And _
            alan.Offset(0, 0) <> 0 Then
            Cells(sat, "E") = alan
            sat = sat + 1
        End If
    Next alan
End Sub