Formula to Retrieve uniqueID row Above

[GreyFox8991]

Greetings Excel Community,

I have some data that returns from the result of VBA code however, for each UniqueID, it returns with the value "=R[-1]C"... What I am attempting is to convert the "R[-1]C" into the respective UniqueID through a formula if possible or if there is some VBA that can be created for the exercise. I would like the end result to be the UniqueID listed for each of the reference style "R[-1]C" notations. For Example, ID 12345678 should be listed 14 times in Column A. An example is listed below.... Any insight would be greatly appreciated.

Book10
	A	B
1	UniqueID	Date
2	12345678	01/28/2022
3	=R[-1]C	03/28/2022
4	=R[-1]C	02/28/2022
5	=R[-1]C	03/30/2022
6	=R[-1]C	04/01/2022
7	=R[-1]C	04/29/2022
8	=R[-1]C	05/29/2022
9	=R[-1]C	06/29/2022
10	=R[-1]C	07/29/2022
11	=R[-1]C	08/29/2022
12	=R[-1]C	09/29/2022
13	=R[-1]C	09/30/2022
14	=R[-1]C	10/29/2022
15	=R[-1]C	11/28/2022
16	=R[-1]C	12/28/2022
17	91011123	01/28/2022
18	=R[-1]C	03/07/2022
19	=R[-1]C	02/28/2022
20	=R[-1]C	03/28/2022
21	=R[-1]C	03/30/2022
22	=R[-1]C	04/29/2022
23	=R[-1]C	05/29/2022
24	=R[-1]C	06/29/2022
25	=R[-1]C	07/29/2022
26	=R[-1]C	08/17/2022
27	=R[-1]C	08/29/2022
28	=R[-1]C	09/29/2022
29	=R[-1]C	10/29/2022
30	=R[-1]C	11/28/2022
31	=R[-1]C	12/28/2022
Sheet1

 

[Trebor76]

Hi GreyFox8991,

Try this:

Option Explicit
Sub Macro1()

    Dim wsSrc As Worksheet
    Dim i As Long, j As Long, k As Long
    
    Application.ScreenUpdating = False
    
    Set wsSrc = ThisWorkbook.Sheets("Sheet1") '<-Sheet name containing the data. Change to suit if necessary.
    j = 2
    k = wsSrc.Range("A:B").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    
    For i = j To k
        If Len(wsSrc.Range("A" & i)) = 0 Or wsSrc.Range("A" & i).HasFormula = True Then
            wsSrc.Range("A" & i).Formula = "=R[-1]C"
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub