en son dolu satır

[mahonyyyy]

arkadaşlar en son dolu satırdan önceki 10 satırı silecek makroyu nasıl yazabilirm

 

[veyselemre]

[vb:1:7d430e2a2a]Sub son_10_sat_sil()
Set a = Sheets(1).UsedRange
For Each sat In a.Rows
b = b + 1
adr = sat.Address(ReferenceStyle:=xlR1C1, RowAbsolute:=True, ColumnAbsolute:=True)
Next

adr = Replace(adr, "R", "")
adr = Mid(adr, 1, InStr(adr, "C") - 1)

If b > 9 Then
bas = adr - 9
son = adr
Else
bas = adr - b + 1
son = adr
End If
Rows(bas & ":" & son).Delete
End Sub[/vb:1:7d430e2a2a]

 

[mahonyyyy]

teşekkür ederim veyselemre bilgine emeğine sağlık