VBA to fill value down

[Utradeshow]

Hi All,

Trying to come up with VBA that will fill the Value of O2 through R2 Down to the last row when value entered.

Rate Sheet.xlsx
	O	P	Q	R
1	UNITS	HELPER REQUIRED	STORAGE REQUIRED	DISPOSAL REQUIRED
2	1	YES	YES	YES
3	1	YES	YES	YES
4	1	YES	YES	YES
5	1	YES	YES	YES
6	1	YES	YES	YES
7	1	YES	YES	YES
8	1	YES	YES	YES
9	1	YES	YES	YES
10	1	YES	YES	YES
11	1	YES	YES	YES
12	1	YES	YES	YES
13	1	YES	YES	YES
14	1	YES	YES	YES
15	1	YES	YES	YES
16	1	YES	YES	YES
17	1	YES	YES	YES
18	1	YES	YES	YES
19	1	YES	YES	YES
20	1	YES	YES	YES
21	1	YES	YES	YES
22	1	YES	YES	YES
23	1	YES	YES	YES
24	1	YES	YES	YES
25	1	YES	YES	YES
26	1	YES	YES	YES
27	1	YES	YES	YES
28	1	YES	YES	YES
29	1	YES	YES	YES
30	1	YES	YES	YES
31	1	YES	YES	YES
32	1	YES	YES	YES
33	1	YES	YES	YES
34	1	YES	YES	YES
35	1	YES	YES	YES
36	1	YES	YES	YES
37	1	YES	YES	YES
38	1	YES	YES	YES
39	1	YES	YES	YES
40	1	YES	YES	YES
41	1	YES	YES	YES
42	1	YES	YES	YES
43	1	YES	YES	YES
44	1	YES	YES	YES
45	1	YES	YES	YES
46	1	YES	YES	YES
47	1	YES	YES	YES
48	1	YES	YES	YES
49	1	YES	YES	YES
50	1	YES	YES	YES
51	1	YES	YES	YES
ROLLOUT

 

[Joe4]

What column can we look at to determine where the last row of data is?
Is it column N?

If so, this should do what you want:

    Dim lr As Long
    
'   Find last row in column N with data
    lr = Cells(Rows.Count, "N").End(xlUp).Row
    
'   Copy values from O2:R2 to end of data
    Range("O2:R2").Copy Range("O3:O" & lr)

 

[Utradeshow]

Yes Sir! That works perfectly, Thank you

 

[Joe4]

You are welcome.
Glad I was able to help!