Macro to delete line items that begin with "STNY"

[nicolewh]

I have a list of part numbers in table1. Some begin with "STNY". I want a macro to delete all items that begin with "STNY"

Example:
Table1
Column1
STNY123
ATNY345
STNY456
ATNY567
STNY678
ATNY6789

Results after macro
Table1
Column1
ATNY345
ATNY567
ATNY6789

Thanks!

Nicole

 

[Michael M]

Hi Nicole
TRY THIS ON A COPY FIRST!!

Sub STNY()
Dim LR As Long, i As Long, j As Integer, c As Range
LR = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("A2:A" & LR)
   If Left(c, 4) = "STNY" Then
   c.Delete
   Else: c.Value = c.Value
   End If
   Next c
End Sub

you'll have to change the references to suit