Delete cell if value does not equal

[Melrose0507]

Hello everyone.

I have tried searching everywhere and can not find out how to accomplish what I need. I am creating a template using macros to reformat the raw data and am stuck. Here is what I need to do:

In column I, I need to identify all cells that only contain letters and delete that cell only and shift left. If the cell has numbers, it is to remain. The cells with numbers always begin with the number 2. The actual letters may vary.

I can find macros that will allow you to delete the row but can not find how to delete just the cell.


Please help?

 

[VoG]

Try

Sub test2()
Dim LR As Long, i As Long
LR = Range("I" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    With Range("I" & i)
        If Left(.Value, 1) <> "2" Then .Delete shift:=xlShiftToLeft
    End With
Next i
End Sub

 

[Melrose0507]

I am checking it out now but am running to a meeting. Thanks for the quick reply. I will let you know how it works in about an hour.

 

[Melrose0507]

That worked perfectly. You did in a couple of minutes what I have researched hours trying to figure out. I huge thank you. This will save our team so much time.