Vba help

[Donai]

Hi, the below code deletes everything that does not start with "W", how can i add another case where i need data that starts with "SMP", so delete everything that does not start with "W" and "SMP"

Public Sub ClearColB2()
Dim i   As Long, _
    LR  As Long

Dim ShtRec As Excel.Worksheet

Set ShtRec = Sheets(gstrRec)

LR = ShtRec.Range("B" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = LR To 6 Step -1
    Select Case Left(ShtRec.Range("B" & i).Value, 1)
        Case "W"
        Case Else
            ShtRec.Rows(i).Delete
    End Select
    
Next i

End Sub

 

[Yard]

Jon,
I think the OP wanted to delete rows that don't begin with "W" or "SMP". Your code deletes these rows unless I'm missing something?

 

[Donai]

Yard your solution works. Jon your solution deletes what i want to keep

 

[JackDanIce]

Donai, did you try mine?

 

[Donai]

Hi Yard, i need the below code to delete everything that starts with W, Z, SMP and a number

Try

Public Sub ClearColB2()
Dim i As Long, LR As Long, s As String
Dim ShtRec As Excel.Worksheet

Set ShtRec = Sheets(gstrRec)

LR = ShtRec.Range("B" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = LR To 6 Step -1
    s = CStr(ShtRec.Range("B" & i).Value)
    If s Like "W*" Then
        'do nothing
    ElseIf s Like "SMP*" Then
        'do nothing
    Else
        ShtRec.Rows(i).Delete
    End If
Next i

Application.ScreenUpdating = True
End Sub