How to "copy up" into blank cells automatically?

[DjembeDog]

I have merged two sets of data using a common field (Column Q).
My goal is to populate all of column R with data below the blank cells (because the data in column Q matches).

Is there a way to automatically populate any blank cells in column R with the lower data?

	P	Q	R	V
1	59094514	4521691
2		4521691	RM4010	115383
3	59094514	4521692
4		4521692	RM4010	115349
5	59094514	4521711
6	59094514	4521711
7	59094514	4521711
8		4521711	RM4013	115329
9	59094514	4521712
10		4521712	RM4010	115342
11	59094514	4521713
12		4521713	RM4010	115340
13	59094514	4521714
14		4521714	RM4010	115341
15	59094514	4521826
16		4521826	AMR6-SAT	52870

A few things to note:
- I am going for automation here because I am dealing with 324,675 rows of data (with 6 more spreadsheets of the same to go).
- I am pursuing a "copy up" solution because regardless of whether I sort column Q Largest to Smallest or Smallest to Largest, the unique data in column R is always on the bottom of the number groups in column Q.


I do hope this makes sense.
Thanks in advance for any insight!

 

[DILIPandey]

Select column R, press F5, press Alt+ s, Press K, Press Enter, type = , press down arrow, press Ctrl + Enter.


Regards,
DILIPandey

 

[DjembeDog]

Perfect! Thank you very much for both the solution and the very comprehensive instructions!

 

[My Aswer Is This]

Try using this script:

Sub Copy_Upper()
Application.ScreenUpdating = False
Dim i As Integer
Dim Lastrow As Integer
Lastrow = Cells(Rows.Count, "R").End(xlUp).Row
For i = 2 To Lastrow
If Cells(i, 18).Value = "" Then Cells(i, 18).Value = Cells(i - 1, 18).Value
Next
End Sub

 

[DILIPandey]

You are welcome DjembeDog .

Cheers

Regards,
DILIPandey