If macro, when keyword phrase is in certain cell

[rcb007]

Trying to figure out how to create a macro that would find a keyword phrase in a cell value. If that keyword phrase exists; select the cell value below to the end of the list and (Cut & Paste) it over the keyword phrase cell value.

I current do this manually, For instance with the below list, the keyword phrase would be in cell A28 = Allow Supercritical Depth = ,#TRUE#.

Then I would select the cell value below A29 to the end of the list (List is usually very long). Then Cut all those values be overwriting the A28 Value. Which looks like the second list.

Book1
	A
1	SI Units? ,#FALSE#
2	Total No. Lines = ,87
3	Starting HGL = ,922.205
4	Return Period Index = ,10
5	Min Cover = ,3
6	Zero Min Cover at outfalls = ,#TRUE#
7	Design Vel = ,2.5
8	Design Alignment = ,1
9	SI Units? ,#FALSE#
10	Total No. Lines = ,87
11	Starting HGL = ,922.205
12	Return Period Index = ,10
13	Min Cover = ,3
14	Zero Min Cover at outfalls = ,#TRUE#
15	Design Vel = ,2.5
16	Min Slope = ,0.2
17	Max Slope = ,10
18	Min Pipe Size = ,12
19	Max Pipe Size = ,96
20	Default Pipe n-value = ,0.012
21	Design Alignment = ,1
22	Allow smaller downstream pipe sizes = ,#FALSE#
23	N-Value of Inlets = ,0.016
24	Grate Design Depth = ,0.3
25	Accumulate Known Qs = ,#TRUE#
26	Use Inlet Captured Flows in System = ,#FALSE#
27	Auto Compute Junct. Loss Coeff. = ,#TRUE#
28	Allow Supercritical Depth = ,#TRUE#
29	Supress Pipe Travel Time = ,#FALSE#
30	Minimum Tc used to calc Intensity,5
31	Check for Inlet Control? = ,#FALSE#
32	Correct for EGL discrepancy = ,#FALSE#
33	Using HDS-5 Method? = ,#FALSE#
34	Curb Opening = ,Horiz
35	List continues.....
36
37
Sheet1

Book1
	A
1	SI Units? ,#FALSE#
2	Total No. Lines = ,87
3	Starting HGL = ,922.205
4	Return Period Index = ,10
5	Min Cover = ,3
6	Zero Min Cover at outfalls = ,#TRUE#
7	Design Vel = ,2.5
8	Design Alignment = ,1
9	SI Units? ,#FALSE#
10	Total No. Lines = ,87
11	Starting HGL = ,922.205
12	Return Period Index = ,10
13	Min Cover = ,3
14	Zero Min Cover at outfalls = ,#TRUE#
15	Design Vel = ,2.5
16	Min Slope = ,0.2
17	Max Slope = ,10
18	Min Pipe Size = ,12
19	Max Pipe Size = ,96
20	Default Pipe n-value = ,0.012
21	Design Alignment = ,1
22	Allow smaller downstream pipe sizes = ,#FALSE#
23	N-Value of Inlets = ,0.016
24	Grate Design Depth = ,0.3
25	Accumulate Known Qs = ,#TRUE#
26	Use Inlet Captured Flows in System = ,#FALSE#
27	Auto Compute Junct. Loss Coeff. = ,#TRUE#
28	Supress Pipe Travel Time = ,#FALSE#
29	Minimum Tc used to calc Intensity,5
30	Check for Inlet Control? = ,#FALSE#
31	Correct for EGL discrepancy = ,#FALSE#
32	Using HDS-5 Method? = ,#FALSE#
33	Curb Opening = ,Horiz
34	List continues.....
Sheet1

I hope I made sense. If the keyword phrase does not exist, it would do nothing.

Thank you again.

 

[Marc L]

According to your attachment a VBA demonstration as a beginner starter :​

Sub Demo1()
    Dim V
        V = Application.Match("Allow Supercritical Depth = ,#TRUE#", [A1].CurrentRegion, 0)
        If IsNumeric(V) Then Rows(V).Delete
End Sub

 

[rcb007]

Thank you so much, works great!