I HAVE A WOORKSHEET THAT HAS WHOLE ROWS WITH SPACES IN BETWEEN SOME ROWS WITH
DATA. ON ANOTHER WOORSHEET I WANT TO JUST HAVE THOSE ROWS THAT CONTAIN DATA.
THE ORIGINAL CANNOT CHANGE. THANKS.

Run the following code.Th eassumption is that if a cell in column A is empty,
then the entire row can be deleted...

Option Explicit

Sub RemoveBlankRows()

Dim col As Range
Set col = Range("A:A")

Set col = col.SpecialCells(xlCellTypeBlanks)
If Not col Is Nothing Then
col.EntireRow.Delete
End If

End Sub


Patrick Molloy
Microsoft Excel MVP

"ROSE THE RED" wrote:

I HAVE A WOORKSHEET THAT HAS WHOLE ROWS WITH SPACES IN BETWEEN SOME ROWS WITH
DATA. ON ANOTHER WOORSHEET I WANT TO JUST HAVE THOSE ROWS THAT CONTAIN DATA.
THE ORIGINAL CANNOT CHANGE. THANKS.