run time error on code -2147417848 (80010108)

Hi ive created the below code but get runtime error when it reaches the "Worksheets("EXPOSURE_REPORT_4_AA").UsedRange.Clear" line of code. Any ideas why
"

Sub Create_AA_Exposure()

Dim TGLASTROW As Long
Dim EXPLASTROW As Long

Worksheets("TRADING GROUPS").Select

TGLASTROW = Range("A" & Rows.Count).End(xlUp).Row

Worksheets("EXPOSURE_REPORT_4_AA").Select
Worksheets("EXPOSURE_REPORT_4_AA").UsedRange.Clear
Worksheets("joined").UsedRange.Copy
Worksheets("EXPOSURE_REPORT_4_AA").Select
ActiveSheet.Paste Range("A1")
Range("B2").Select
ActiveCell.EntireColumn.Insert
ActiveCell.Value = "TG Y/N"
ActiveCell.Offset(1, 0).Select

'lookup to Trading group table

ActiveCell.Formula = "=VLOOKUP(E3,'TRADING GROUPS'!$I$3:N514,6,0)"

'Range("N3").Formula = "=if(isna(VLOOKUP(A3,'OLD SHEET'!A$3:N$" & lastrow & ",14,0)),N,VLOOKUP(A3,'OLD SHEET'!A$3:N$" & lastrow & ",14,0))"

End Sub