I keep getting a "Type mismatch" error with the first execution line inside the FOR loop when I try to execute this code. What am I doing wrong? How can I correct it?

    Dim Ktire As Double
    Dim t As Variant
    Dim zfront As Variant
    Dim zrear As Variant
    ReDim t(1 To 86016, 1 To 1)  
    ReDim zfront(1 To 86016, 1 To 1)  
    ReDim zrear(1 To 86016, 1 To 1)
    
    t = Worksheets("Lists").Range("C15:C86030")
    zfront = Worksheets("Lists").Range("D15:D86030")
    zrear = Worksheets("Lists").Range("E15:E86030")
    
    Dim Ffront As Variant
    Dim Frear As Variant
    ReDim Ffront(1 To 86016, 1 To 1)
    ReDim Frear(1 To 86016, 1 To 1)
    
    For i = 1 To 86016
        Ffront(i, 1) = -Ktire * zfront(i, 1)
        Frear(i, 1) = -Ktire * zrear(i, 1)
    Next i
Thanks in advance-