Slette tomme rækker som forberedelse

Prøv med denne makro:

Sub test()
r = ActiveSheet.UsedRange.Rows.Count
c = ActiveSheet.UsedRange.Columns.Count
For x = r To 1 Step -1
If WorksheetFunction.CountA(Rows(x)) = 0 Then
Rows(x).EntireRow.Delete
End If
Next
For x = c To 1 Step -1
If WorksheetFunction.CountA(Columns(x)) = 0 Then
Columns(x).EntireColumn.Delete
End If
Next
End Sub

Hej jens48

Vi er tæt på. Den sletter i det rigtige område, men den bliver stående og beregner......
Jeg kan ikke stoppe den.

Kan vi også klare den, er vi i mål, og så får vi glæde af den.

Det forstår jeg ikke. Jeg har kørt den en gang til og her virker det OK. Har du kopieret hele makroen eller kun dele af den? Kan du vise hele din makro?

Hvad pokker, nu kører det!!
Tusind tak.