Hi

I have 11 columns of data (A-K). Some of the cells in column J do not
contain data. I need to be able to strip out the rows in which there is no
data in row K and display them seperately on the worksheet or in another
worksheet.

Many thanks

either use the advanced filter functionality (off data menu, see help for how
to use it)
OR sort by column J, delete all rows where J is blank
(generally when I do a sorting/re-ordering macro, I'll add a column called
Order before sorting.. Order is simply a column numbered 1 - x designed to
maintain the original order)

"Bluenose" wrote:

Hi

I have 11 columns of data (A-K). Some of the cells in column J do not
contain data. I need to be able to strip out the rows in which there is no
data in row K and display them seperately on the worksheet or in another
worksheet.

Many thanks

This is the code to add a blank row, just reverese:

Sub InsertRow_At_Change()
Dim i As Long
With Application
.Calculation = xlManual
.ScreenUpdating = False
End With
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i - 1, 1) < Cells(i, 1) Then _
Cells(i, 1).Resize(1, 1).EntireRow.Insert
Next i
With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
End With
End Sub