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.