Delete blank rows, with a few exceptions [VBA]

[Martin_H]

Hello folks,

I am looking for a help with a VBA Macro.

I have a Worksheet with approximately 260 rows and I want a Macro that will delete all blank rows based on a cell value in the column A.

Rows starting from 1 to 13 should be untouched.

Macro should work only for rows starting from 14 to 257.

In every cell, in column A, starting from row 14 to 257 there is a formula:

=IF(N14="";"";$F$2)

For example if the cell A26 has a "" value (a blank value), I want that row to be deleted.
If the cell A26 is filled with some non-blank value, I want to keep that row.

Help is much appreciated.


Thank you!

 

[Fluff]

How about

Sub MartinH()
   Dim Cl As Range, Rng As Range
   
   For Each Cl In Range("A14:A257")
      If Cl.Value = "" Then
         If Rng Is Nothing Then Set Rng = Cl Else Set Rng = Union(Rng, Cl)
      End If
   Next Cl
   If Not Rng Is Nothing Then Rng.EntireRow.Delete
End Sub

 

[Martin_H]

Solved! Awesome as always.

Thank you Fluff! Much appreciated.

 

[Fluff]

You're welcome & thanks for the feedback.