Consolidate Range(Record Marco) need the Macro to be dynamic

[Oberon70]

I have the below data as an example. The amount of data can change with the statement I copy from. So, I was wondering how do I go about creating a dynamic range that will consolidate the data or how do I change the Marco below so that it uses dynamic ranges?

VBA Project - Dummy file.xlsm
	A	B	C	D
2	295678410	-$50.00	-$38.50	-$11.50
3	394308240	$50.00	$38.50	$11.50
4	889035494	$10.00	$7.70	$2.30
5	939394939	$2,020.00	$1,555.40	$464.60
6	848593874	$10.00	$7.70	$2.30
7	239394838	$25.00	$19.25	$5.75
8	38299999	$20.00	$15.40	$4.60
9	675768476	$4.82	$3.71	$1.11
10	545496854	$424.96	$327.22	$97.74
11	111111111	$10.00	$7.70	$2.30
12	545485848	$10.00	$7.70	$2.30
13	485848584	$20.00	$15.40	$4.60
14	340145338	$500.00	$385.00	$115.00
15	848593874	$10.00	$7.70	$2.30
16	222222222	$5.00	$3.85	$1.15
17	768576757	$10.00	$7.70	$2.30
18	545485848	$10.00	$7.70	$2.30
19	394308240	$50.00	$38.50	$11.50
20	99495848	$100.00	$77.00	$23.00
21	889035494	$10.00	$7.70	$2.30
22	848593874	$10.00	$7.70	$2.30
23	768576757	$10.00	$7.70	$2.30
24	239394838	$25.00	$19.25	$5.75
25	38299999	$20.00	$15.40	$4.60
26	545485848	$10.00	$7.70	$2.30
27	909945984	$10.00	$7.70	$2.30
28	359489584	$3.02	$2.32	$0.70
29	878574757	$51.76	$39.85	$11.91
30	848593874	$10.00	$7.70	$2.30
31	485848584	$20.00	$15.40	$4.60
32	222222222	$5.00	$3.85	$1.15
33	889035494	$10.00	$7.70	$2.30
34	545485848	$10.00	$7.70	$2.30
35	848593874	$10.00	$7.70	$2.30
36	394308240	$50.00	$38.50	$11.50
Receipt

Cell Formulas
Range	Formula
B2:B36	B2	=VLOOKUP(A2,Statement_Data,6,FALSE)
C2:C36	C2	=VLOOKUP(A2,Statement_Data,7,FALSE) + VLOOKUP(A2,Statement_Data,9,FALSE)
D2:D36	D2	=B2-C2

Named Ranges
Name	Refers To	Cells
Statement_Data	=data!$A$2:$V$36	B2:C36

Below is the code I received from Record Marco

Sub Consolidate()
'
' Consolidate Macro
'

'
    Range("I2").Select
    Application.CutCopyMode = False
    Selection.Consolidate Sources:= _
        "'C:\Downloads\[VBA Project - Dummy file.xlsm]Receipt'!R2C1:R36C4", Function _
        :=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False
End Sub

And below is the end result

VBA Project - Dummy file.xlsm
	I	J	K	L
2	295678410	-$50.00	-$38.50	-$11.50
3	394308240	$150.00	$115.50	$34.50
4	889035494	$30.00	$23.10	$6.90
5	939394939	$2,020.00	$1,555.40	$464.60
6	848593874	$50.00	$38.50	$11.50
7	239394838	$50.00	$38.50	$11.50
8	38299999	$40.00	$30.80	$9.20
9	675768476	$4.82	$3.71	$1.11
10	545496854	$424.96	$327.22	$97.74
11	111111111	$10.00	$7.70	$2.30
12	545485848	$40.00	$30.80	$9.20
13	485848584	$40.00	$30.80	$9.20
14	340145338	$500.00	$385.00	$115.00
15	222222222	$10.00	$7.70	$2.30
16	768576757	$20.00	$15.40	$4.60
17	99495848	$100.00	$77.00	$23.00
18	909945984	$10.00	$7.70	$2.30
19	359489584	$3.02	$2.32	$0.70
20	878574757	$51.76	$39.85	$11.91
Receipt

 

[Oberon70]

I have found the below code on this message board. I was running it so, I could go step by step to see if it could be modified to my needs. However, I get an error when I try to run the Macro

Sub Consolidate_Data()
Dim lr As Long, lr2 As Long
lr = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
lr2 = Sheet3.Cells(Rows.Count, 2).End(xlUp).Row
Sheets(1).Range("A2").Consolidate Array("Sheet2!R2C1:R" & lr & "C1", "Sheet3!R2C2:R" & lr2 & "C2"), xlSum
End Sub

I receive the below error message:

and the below is higlighted in the marcro: