ITs obvious i have to make some modifications to your code, but im not
exactly sure where. i havent used VBA since 7th grade so icompletely forgot
everything.

if it helps, the data range is in column D, and i want it outputed in column
F.

Thanks.

"Bob Phillips" wrote:

Public Sub ProcessData()
Const TEST_COLUMN As String = "A" '<=== change to suit
Dim i As Long
Dim LastRow As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = LastRow to 1 Step -1

If IsError(.cells(i, TEST_COLUMN).Value) Then

.Rows(i).Delete
End If
Next i
End With

End Sub

--
__________________________________
HTH

Bob

"DFrank" wrote in message
...
I currently have a string of items that looks like the following:


#N/A
#N/A
1" Shaft Liner DensGlass Ultra 2'x12'
#N/A
#N/A
#N/A
1/2" 4'x12' Regular
#N/A
#N/A
1/2" DensArmor Plus 4'x08' (paperless)
#N/A
#N/A
1/2" DensShield 32"x05'
#N/A
#N/A
1/2" Hardi-Backer 3'x05'
#N/A
1/2" MR 4'x08'
1/2" MR 4'x12'
#N/A
#N/A
#N/A
5/8" 4'x14' FC Type X
#N/A
#N/A
5/8" DensGlass Gold 4'x08' FC Type X
#N/A
#N/A
#N/A
5/8" MR 4'x08' FC Type X
#N/A
5/8" MR 4'x12' FC Type X
#N/A
#N/A


I am trying to filter out the #N/A's, so that it will output on the same
worksheet the following:

1" Shaft Liner DensGlass Ultra 2'x12'
1/2" 4'x12' Regular
1/2" DensArmor Plus 4'x08' (paperless)
1/2" DensShield 32"x05'
1/2" Hardi-Backer 3'x05'
1/2" MR 4'x08'
1/2" MR 4'x12'
5/8" 4'x14' FC Type X
5/8" DensGlass Gold 4'x08' FC Type X
5/8" MR 4'x08' FC Type X
5/8" MR 4'x12' FC Type X

Any help would be appreciated.