Transposing data from Row to Column drama's

I am trying to transpose some data in a found row to a sheet column (C), but cannot get the syntax correct.

Sub TIMELINE_IMPORT_DATA()
' RE-POPULATE TIMELINE DATA
Application.ScreenUpdating = False
Dim TL Variant
   On Error Resume Next
   Sheets("DATA").Visible = True
    With Sheets("DATA").Range("A:A") ' Search  ID'S
    Set TL = .Find(What:=Val(Sheets("TIMELINE").Range("A2").Value), After:=.Cells(1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
    If TL <> "" Then
        Dim i As Long
        For i = 668 To 773
       Sheets("TIMELINE").Range("C7:C112").Value = Application.WorksheetFunction.Transpose(TL.Offset(0, i).Value)
 End If
End With
Sheets("DATA").Visible = xlVeryHidden
End Sub

The only result is a column full of Zero's for some reason.