If left delete cells - shift up

[braindiesel]

Hello,

I have code selecting the cells A5:E(variable number)

In column A is a number

If the number begins with 1, 2, or 3, I want to delete the cells, shifting up

What I have so far is

Range("A5:E5").Select
Range(Selection, Selection.End(xlDown)).Select

::I am missing the part here where it activates the rows where the left begins with a 1, 2, or 3

Selection.Delete Shift:=xlUp

Can you help me fill the gap?

 

[Greg Truby]

I would use Autofilter on column A to identify the range to be deleted. If there is other data, to the right of column E that you do not wish to delete, then name the range, turn off autofilter and delete. If there is no such data to the right, then just delete after setting autofilter. [This assumes your data has headers.] Ron de Bruin has some more info on the subject here.