Asagidaki macroyu dolu satırlar arasinda 1'er satir birakacak sekilde duzenleyebilir miyiz?
Sub boşluksil()
t = Range("A65536").End(xlUp).Row
For i = t To 8 Step -1
If Cells(i, 1) = "" Then
Cells(i, 1).EntireRow.Delete xlShiftUp
End If
Next
End Sub
Sub boşluksil()
t = Range("A65536").End(xlUp).Row
For i = t To 8 Step -1
If Cells(i, 1) = "" Then
Cells(i, 1).EntireRow.Delete xlShiftUp
End If
Next
End Sub