I have the following code which works on Office 2021. However, one of my users uses Office 2010 and gets a run time error
Kindly amend my Code
Kindly amend my Code
Code:
Sub Formula()
Dim LR As Long
With Sheets("Macro")
LR = .Cells(.Rows.Count, "L").End(xlUp).Row
.Range("E12:E" & LR + 14).ClearContents
.Range("e12").Formula2R1C1 = "=UNIQUE(R[-11]C[9]:R[2]C[9])"
.Range("e12:E" & LR + 14).Copy
.Range("E12:E" & LR + 14).PasteSpecial xlValues
End With
Application.CutCopyMode = False
End Sub