Slette tomme rækker

Hej Spiderman, faldt lige over denne her:

Sub DeleteEmtyRows()
Dim LastRow As Long, r As Long
LastRow=ActiveSheet.UsedRange.Rows.Count
LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r))= 0 Then Rows(r).Delete
Next r
End Sub

Den skulle slette alle tomme rækker i arket.

Hmm
Lav en kolonne (X) mere, og lav en nummerering i den fra 1 til 3200. I udgangspunktet kan du lave den med en formel, men formlerne skal skiftes ud til værdier.

Sorter så dine rækker, efter en kolonne der garanteret er fyldt, hvis rækken skal bevares.
Nu kommer alle de tomme rækker til at stå under hinanden
Slet dem så i eet hug
Sorter igen efter den nye X kolonne.
:<;

eller den helt simple:
Marker en kolonne, tryk F5, vælg speciel, vælg tomme, klik OK, vælg rediger, slet hele rækker.

eller en anden måde:

a) marker alt "ctrl+a"
b) gå op i "Data" og vælg "sort"
c) start med den 6. kolonne og gå ned i bunden af regnearket og slet de celler der er tomme.
d) igen "ctrl+a" og sort den 5. kolonne.
e) derefter den 4. osv´.