Boşluk Arası Veri Sıralama

[Tarikkk_]

Merhabalar. veri listemde 2020,2021,2022 senelerine ait veriler mevcut ve tüm seneler arasında satır boşluğu mevcut. yapmak istediğim şey her boşluktan sonraki veriyi önce ada sonra parsel sonrada ÇKS sahibine göre sıralamak ve boş satırları olduğu gibi bırakmak. listem uzun olduğundan bunu bir makroyla yapmak istiyorum. yardımlarınızı bekliyorum şimdiden teşekkür ederim.
örnek dosya ektedir

 

[hamitcan]

Böyle dener misiniz ?

Sub Sirala()
    Dim arr()
    x = [b65536].End(3).Row + 1
    For i = 6 To x
        If Cells(i, 2) = "" Then
            k = k + 1
            ReDim Preserve arr(1 To k)
            arr(k) = i
        End If
    Next
    a = 6
    For j = 1 To UBound(arr)
        Range("b" & a & ":" & "i" & arr(j) - 1).Sort key1:=Cells(a, 2), key2:=Cells(a, 3), key3:=Cells(a, "h")
    a = arr(j) + 1
    Next
    End Sub

 

[Tarikkk_]

Böyle dener misiniz ?

Sub Sirala()
    Dim arr()
    x = [b65536].End(3).Row + 1
    For i = 6 To x
        If Cells(i, 2) = "" Then
            k = k + 1
            ReDim Preserve arr(1 To k)
            arr(k) = i
        End If
    Next
    a = 6
    For j = 1 To UBound(arr)
        Range("b" & a & ":" & "i" & arr(j) - 1).Sort key1:=Cells(a, 2), key2:=Cells(a, 3), key3:=Cells(a, "h")
    a = arr(j) + 1
    Next
    End Sub

Hocam çok teşekkür ederim. Çok işime yaradı