Hi, I am after a piece of code that will delete all empty rows downwards from
1st row until it hits data in column B. I can see plenty of threads
explaining how to delete upwards until it hits data, but not downwards.
Help greatly appreciated

Autofilter column B for blanks, then delete all visible rows.

HTH

Bob

"JohnUK" wrote in message
...
Hi, I am after a piece of code that will delete all empty rows downwards
from
1st row until it hits data in column B. I can see plenty of threads
explaining how to delete upwards until it hits data, but not downwards.
Help greatly appreciated

Hi Bob, Thanks for help, but its not as simple as that. There is a lot of
manipulation of data that gets copied from one tab to another, gets sorted,
has rows inserted between certain data,
then back.
Can the rows not be deleted through code then?


"Bob Phillips" wrote:

Autofilter column B for blanks, then delete all visible rows.

HTH

Bob

"JohnUK" wrote in message
...
Hi, I am after a piece of code that will delete all empty rows downwards
from
1st row until it hits data in column B. I can see plenty of threads
explaining how to delete upwards until it hits data, but not downwards.
Help greatly appreciated



.

Blanks in column B down to say B7?

Sub delete_blank_rows()
Range(Cells(1, 2), Cells(1, 2).End(xlDown).Offset(-1)) _
.EntireRow.Delete
End Sub


Gord Dibben MS Excel MVP

On Sat, 6 Feb 2010 05:46:01 -0800, JohnUK
wrote:

Hi, I am after a piece of code that will delete all empty rows downwards from
1st row until it hits data in column B. I can see plenty of threads
explaining how to delete upwards until it hits data, but not downwards.
Help greatly appreciated

Fantastic, just what I wanted.
Many thanks
Gord
Regards
John

"Gord Dibben" wrote:

Blanks in column B down to say B7?

Sub delete_blank_rows()
Range(Cells(1, 2), Cells(1, 2).End(xlDown).Offset(-1)) _
.EntireRow.Delete
End Sub


Gord Dibben MS Excel MVP

On Sat, 6 Feb 2010 05:46:01 -0800, JohnUK
wrote:

Hi, I am after a piece of code that will delete all empty rows downwards from
1st row until it hits data in column B. I can see plenty of threads
explaining how to delete upwards until it hits data, but not downwards.
Help greatly appreciated

.

It can. Another way

With Activesheet

LastRow = .Cells(Rows.Count, "B").End(xlUp).Row

.Range("B1").Resize(LastRow).SpecialCells(xlCellTy peBlanks).Entirerow.Delete
End With

HTH

Bob

"JohnUK" wrote in message
...
Hi Bob, Thanks for help, but it's not as simple as that. There is a lot of
manipulation of data that gets copied from one tab to another, gets
sorted,
has rows inserted between certain data,
then back.
Can the rows not be deleted through code then?


"Bob Phillips" wrote:

Autofilter column B for blanks, then delete all visible rows.

HTH

Bob

"JohnUK" wrote in message
...
Hi, I am after a piece of code that will delete all empty rows
downwards
from
1st row until it hits data in column B. I can see plenty of threads
explaining how to delete upwards until it hits data, but not downwards.
Help greatly appreciated



.

On 2/6/2010 8:46 AM, JohnUK wrote:
Hi, I am after a piece of code that will delete all empty rows downwards from
1st row until it hits data in column B. I can see plenty of threads
explaining how to delete upwards until it hits data, but not downwards.
Help greatly appreciated


Just another slight variation:

Sub Demo()
With [B:B] 'Column
If .Cells(1) = vbNullString Then
.SpecialCells(xlCellTypeBlanks).Areas(1).EntireRow .Delete
End If
End With
End Sub

= = = = = = =
HTH :)
Dana DeLouis