Select method of range class failed Error

Select method of range class failed Error

Dim dflrow, agi, ahi, aii, aji As Integer
Dim agd As Date
ActiveWorkbook.Sheets("ElecTM").Range("I104876").Select
dflrow = Selection.End(xlUp).Row + 1
For agi = 6 To dflrow
agd = ActiveWorkbook.Sheets("ElecTM").Range("I" & agi).Value
ActiveWorkbook.Sheets("ElecTM").Range("AG" & agi).Formula
="=CONCATENATE(Year(range(agd)),""w"",WeekNum(range(agd)))"
Next agi
When i execute above code, On third line it shows 'Run time Error Select
method of range class failed'. Can u help??...