macro to insert rows at the start of a certain number

[howard]

I need a macro to insert 2 rows in Col A at the start of the first number in the column beginning with 153, 163, 173 & 193


See sample data of what the data should look like after 2 rows have been manually inserted t the start of the numbers beginning with 153, 163, 173 & 193



it would be appreciated if someone could assist me

Book1
	A
1	103951
2	103966
3
4
5	153001
6	153009
7	153080
8
9
10	163001
11	163007
12	163954
13
14
15	173006
16	173080
17	173950
18
19
20	193200
21	193205
22	193450
Sheet1

 

[howard]

I have tried to write code to insert two rows at the start of first number beginning with 153,163,173,193 but the section below in highlighted in red

 myLastRow = myWorksheet.Cells.Find(What:= ”Whattofind", _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row

 Sub insertBlankRows_numbers()


Dim myFirstRow As Long

Dim myLastRow As Long

Dim myWorksheet As Worksheet
Dim Whattofind As Variant
Dim iCounter As Long

myFirstRow = 2

Set myWorksheet = Worksheets(“sheet1”)
Whattofind = Array("153*", "163*", "173*", "193*")


myLastRow = myWorksheet.Cells.Find(What:= ”Whattofind", _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row

For iCounter = myLastRow To (myFirstRow + 1) Step -1

myWorksheet.Rows(iCounter).Insert Shift:=xlShiftDown

Next iCounter

End Sub

I have also posted on the link below


https://www.excelforum.com/excel-pr...en-specific-numbers-in-col-a.html#post4929707