removing unwanted data

[MAMIBUSSOL]

I have a sheet of data, with various columns and rows, however I can use coulmn AT to help me remove some unwanted information, the column holds at the moment text which I wish to remove and numbers which I need to keep.

on the rows which contain text I wish to remove the entire row.

not sure if it is relevant but each of cells is a calulation

 

[Michael M]

This will remove text entries from column "A"

Sub moo()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
    For r = lr To 1 Step -1
        If Application.WorksheetFunction.IsText(Range("A" & r)) Then
            Rows(r).Delete
        End If
    Next r
End Sub

 

[brettdj]

You could do this quickly without VBA (if that is an advantage for you)
- create a working column using ISTEXT to identify what cells are numeric, and which are strings, ie =ISTEXT(AT1) and copy down
- Autofilter the FALSE (number) results, then delete these rows

Cheers

Dave