Delete Cells with numbers, Delete Cells with dashes

[hellothere4]

Hello, I am trying to delete cells along the first column which contains numbers, and then I need another function which deletes cells that contain "-". I didn't get very far.

Sub Macro4()
'
' Macro4 Macro
'

'
Columns("A:A").Select
End Sub

 

[AlphaFrog]

Here's a start. i made some assumptions. You may have to modify to suit.

Sub Delete_Numbers_Dash()

    Dim vList As Variant, c As Variant, Found As Range

    vList = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0, "-")
    
    For Each c In vList
        Do
            ' Delete the found cell and shift cells up.
            If Not Found Is Nothing Then Found.Delete Shift:=xlShiftUp
            
            ' Clear the found cell
            'If Not Found Is Nothing Then Found.ClearContents
            
            ' Delete the entire row
            'If Not Found Is Nothing Then Found.EntireRow.Delete
            
            Set Found = Columns("A").Find(What:=CStr(c), _
                                          LookIn:=xlValues, _
                                          LookAt:=xlPart, _
                                          SearchOrder:=xlByRows, _
                                          SearchDirection:=xlNext, _
                                          MatchCase:=False)
                                          
        Loop Until Found Is Nothing
    Next c
    
    MsgBox "Cells deleted."
    
End Sub

 

[hellothere4]

Hi, thanks for your suggestions, unfortunately it turned out to be super slow (i have about 150k cells). My next strategy is to use advanced filters with the contain function as I found here: http://www.generateexcelfiles.com/core/autofilters.html. Select the cells, and delete them. However, I'm not that good with VB, so if anyone can help put it together that would be great!