slette rækker

 
Hej,
 
jeg leder efter en simpel makro.
 
Jeg har en masse rækker hvor i Kolonne A står styk antal, og kolonne B står en beskrivelse.
 
Hvis A > 0 så skal den ikke slette rækken.
Hvis A < eller = 0 så skal den slette rækken og rykke rækkerne op.
 
Jeg har brugt.:
 
Sub Sletlinier()
 
x = Sheets.Count 'Tæller antal ark i projektet
 
For i = 1 To x
Sheets(i).Select
 
For z = 1 To 5 'Antallet af rækker
If Range("A" & z) <> "" Then 'Antager at du altid har noget skrevet i kolonne A for de rækker der ikke er tomme
Else
Range("A" & z).EntireRow.Delete xlUp
z = z - 1 'Da der kan vaere to tomme rækker i træk
End If
Next z
Next i
 
End Sub
 
Men den er forkert.
For det første sletter den ikke hvis der står 0 i kolonne A.
For det andet gør (de 2 tomme rækker i træk) at den bare bliver ved og ved da den hele tiden henter endnu tom række op.
Den skal kun gøre det med første ark, behøver ikke de andre ark igennem
 
 
Med venlig hilsen

Thomas