"Compile error: Method or data member not found", code needs fix

Code:

    If Sheet6.Range("O8").Value = 4 Then
    
        For Each cell In Sheet10.Range("B5", "B369")
        
            If (cell.Value = Sheet6.Range("L24").Value) Then
            
                cell.Offset(0, Sheet6.Range("L21").Value).Value = Sheet1.ActiveCell.Value
                                
            End If
            
        Next cell
        
    End If

it says the part of code causing the error is the end of the 'cell.offset' part, as highlighed:

Sheet1.ActiveCell.Value

i tried replacing it with '.Selection', still get the same error.

any one got the magic solution?