Fjerne tomme rækker fra importeret tekstfil

lav en sortering.
så vil de tomme rækker stå øverst eller neders,
og du kan fjerne rækken/rækkerne ved at markere en
eller flere rækker og trykke på Ctrl  og - samtidigt.

nederst

uden sortering en makro

Public Sub FjernTommeRækker()
r = Range("A65536").End(xlUp).Row
D = Range("A1:A" & r).Select
For Each c In Selection
If c = "" Then
c.EntireRow.Delete

End If
Next
End Sub

Tak for svarene - Kabbak smid lige et svar, så deler du og hcars

et svar

> kabbak: kanon sorterings rutine, det gode ved dit eksempel er at dataene fortsat står i den rigtige rækkefølge.

tak

Tak for points.
kabbaks måde er selvfølgelig den prof måde at gøre det på. Det er sgu ikke til at hamle op med de makro-drenge, når man blot er en glad bruger. :-)
Hvis man gerne vil beholde rækkefølgen ved sortering, kan man enten bruge den sortering dataene allerede står i eller man kan oprette en ekstra kolonne, hvor man nummererer rækkerne fra 1 og nedefter, også de tomme rækker.
Så sorterer man efter en anden kolonne, smider de tomme rækker ud, sorterer efter nr-kolonnen og sletter derefter nr-kolonnen.
Men igen: makroen er bedre, hvis du skal gøre det flere gange.