Delete blank rows between the two rows that contain data

beginner · #2 12-24-2014, 09:50 AM

I have tried this VBA macro

Code:

Sub Macro3()
'Select empty rows in range and delete them
    Range("A10:H50").Select 'this range is the differencing
    Selection.SpecialCells(xlCellTypeBlanks).Select 'selecting empty rows
    ActiveWindow.SmallScroll Down:=18 '??????
    Selection.Delete Shift:=xlUp 'search last row with data?
    ActiveWindow.SmallScroll Down:=-27 '????
    Range("A1").Select 'position when VBA is finished
End Sub

But I have a problem when the VBA using the second case.
How to rearrange VBA when I can use for both cases.
How to create a universal range and delete "X?" empty rows that change from case to case.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Delete All empty Rows - Print - Undo all Rows deleted	Bathroth	Word VBA	1	10-01-2014 01:40 PM
Grouping table rows to prevent individual rows from breaking across pages	dennist77	Word	1	10-29-2013 11:39 PM
Delete Blank Rows (Cyrillic Text in Spreadsheet )	dozd	Excel	1	02-22-2013 03:24 AM
Count rows and add blank rows accordingly	Hoochtheseal	Word VBA	1	01-29-2013 09:23 PM
How to remove blank rows from a specified range?	Learner7	Excel	1	04-19-2011 02:45 AM