Excel VBA for deleting blank Rows

[Jayblade]

Hi,

Could anyone give me guidance on vba code for deleting rows where there is no data, I have about 500 lines of data where a blank may appear several times which I need to delete. I also need the loop to end when 20 blank lines are found as this should be the end of the data.

Much appreciated

 

[Trevor G]

Just Press F5 on the keyboard click special and then find all blank cells once highlighted look for delete and that will sort your issue out.

 

[Jayblade]

Thanks Trevor but I am trying to have something automated as this spreadsheet will be used by others who just require the output data as simple as possible. I have setup a macro button that gets the data in the required format its just it has blank rows in a number of places.

Regards
J

 

[Trevor G]

Then all you should need to do is record to do the instructions I mentioned and it will then give this code.

Sub mcrFindBlanks()
'
' mcrFindBlanks Macro
'
'
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub