Add code to represent a constant

[dab1477]

I want to add the following to my current code..

I want to find the first empty cell in Column A and enter the text "Final Inspection Days:".
I want to find the corresponding row in column Y and enter the value ".5"
I want to find the next empty cell in Column A and enter the text "Put-Away Days:"
I want to find the corresponding row in column Y and enter the value .25

The idea is that the following would ALWAYS occur as a constant at the END of my macro in colunms A and Y:
Fixed Days: .5
Put-Away Days: .25

My issue is that the above could occur at A20, Y20 and A21, Y21 one time, and then could be possibly be A27, Y27, and A28, Y28 the next. I don't know how to code this type of variable. I think I need to search for a cell as "is null", but am not sure how to so this.

Thanks in advance for any direction you can provide.

 

[hiker95]

dab1477,


Sample data before the macro:

Excel Workbook
	A	Y
1	1
2	2
3	3
4
5
6
7
8
9
10
11
12
13
Sheet1

After the macro:

Excel Workbook
	A	Y
1	1
2	2
3	3
4	Fixed Days:	0.5
5	Put-Away Days	0.25
6
7
8
9
10
11
12
13
Sheet1

Then you add more data:

Excel Workbook
	A	Y
1	1
2	2
3	3
4	Fixed Days:	0.5
5	Put-Away Days	0.25
6	6
7	7
8	8
9	9
10	10
11
12
13
Sheet1

After the macro:

Excel Workbook
	A	Y
1	1
2	2
3	3
4	Fixed Days:	0.5
5	Put-Away Days	0.25
6	6
7	7
8	8
9	9
10	10
11	Fixed Days:	0.5
12	Put-Away Days	0.25
13
Sheet1

Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

Option Explicit
Sub Test()

''You macro code goes here:


Dim NR As Long
NR = Range("A" & Rows.Count).End(xlUp).Offset(1).Row
Range("A" & NR) = "Fixed Days:"
Range("Y" & NR) = 0.5
Range("A" & NR).Offset(1) = "Put-Away Days"
Range("Y" & NR).Offset(1) = 0.25

End Sub

Then run the Test macro,

 

[dab1477]

Thank you. Works well. Appreciate the assist.