Tạo công thức formula trong vba

[LEHOC]

Em gán công thức sau vào vba thì báo lỗi application-defined or object-defined error range. Các tiền bối chỉ giáo em với ạ, em cảm ơn!
Công thức gốc:
AO1="Copy và dán Mã KH:
"&TEXT(SUMPRODUCT(1/COUNTIF(AO2:AO339,AO2:AO339)),"0")& " khách hàng"
Vì em chưa xác định được vùng AO2 đến AO bao nhiêu nên em muốn dùng VBA để tìm xLastRow sau đó gán vào công thức, thì bị lỗi ạ.
Công thức VBA:
xLastRow = Range("C6").End(xlDown).Row
Range("AO1").Select
ActiveCell.FormulaR1C1 = _
"=""Copy và dán M? KH:" & Chr(10) & """&TEXT(SUMPRODUCT(1/COUNTIF(R[1]C:R[""xLastRow -1""]C,R[1]C:R[""xLastRow -1""]C)),""0"")&"" khách hàng"""

 

[HeSanbi]

Có Công thức lấy ô cuối cùng chứa dữ liệu, nên không cần đến VBA
Ví dụ:

=MAX(MATCH(9.99999999999999E+307,A1:A100),MATCH(REPT("z",255),A1:A100))

Dùng Hàm INDERECT để chuyển chuỗi "A1:Ax" sang một Range Object
Ví dụ:

INDERECT("Sheet1!A1:A" & MAX(MATCH(9.99999999999999E+307,A1:A100),MATCH(REPT("z",255),A1:A100)))