Sıralamada boşluk oluşumu

[kemalist]

Arkadaşlar merhaba makroyu çalıştırdığımda boşluk olşuyor.Ayrıntılı açıklama ekli dosyada ilginize şimdiden teşekkür ederim.

 

[çıtır]

Deneyiniz.

Sub sırala()
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")
son = s1.Cells(65355, "A").End(3).Row
Application.ScreenUpdating = False
s1.Range("A8:D" & son).Sort Range("D8"), xlDescending
s1.Range("A8:D" & son).Select
Selection.Cut
Range("A1").Select
ActiveSheet.Paste
 Application.CutCopyMode = False
 Application.ScreenUpdating = True
 MsgBox "İşlem tamam"
End Sub

 

[kemalist]

TABLOYU YENİ KONUMA GÖRE MAKROLARI DEĞİŞTİRİP YAPMAYA ÇALIŞTIM AMA BECEREMEDİM.Makroda gerekli değişikliği yaparmısınız?

 

[Korhan Ayhan]

Deneyiniz.

Sub Bosluksuz_Sirala()
    Range("AE2:AH31").Sort Range("AH1"), xlAscending
    Son = Range("AE:AE").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Range("AE2:AH" & Son).Sort Range("AH1"), xlDescending
End Sub

 

[kemalist]

Korhan Bey ,sayın Çıtır her ikinizede çok teşekkür ederim.