Conditional Output Loop testing values in one column & outputting in another

Hi,

I have a column of numerical data in column H. I want to run a loop to test the value of the data in each row of the column.

For each cell, depending on the value, want output in column I of either "L", "M" or "H" (without the quotations). This is what I have rigged up so far, but I am doing something wrong with the offset function. Also if anyone has a suggestion for an easier way that would be cool too. Thanks

    Sheets("Annual Summary").Activate
    
    Dim APIrng As Range
    Set APIrng = Workbooks("Co-op Compiler.xlsm").Worksheets("Annual Summary").Range("G2:G" & lrow)
    
        For Each Cell In APIrng
            If Cell.Value > 31.1 Then
                Offset.Cell(0, 2) = "L"
            ElseIf Cell.Value < 31.1 And Cell.Value > 22.3 Then
                Offset.Cell(0, 2) = "M"
            ElseIf Cell.Value < 22.3 And Cell.Value > 0 Then
                Offset.Cell(0, 2) = "H"
            End If
        Next

Maybe:

Sub bakeraj256zz()
        For Each cell In APIrng
            If cell.Value > 31.1 Then
                Cells(cell.Row, "I") = "L"
            ElseIf cell.Value < 31.1 And cell.Value > 22.3 Then
                Cells(cell.Row, "I") = "M"
            ElseIf cell.Value < 22.3 And cell.Value > 0 Then
                Cells(cell.Row, "I") = "H"
            End If
        Next
End Sub

Or

Sub bakeraj256()
Dim rcell As Range
For Each rcell In Range("H2:H" & Range("H" & Rows.count).End(3)(1).Row)
    Select Case rcell.Value
        Case Is > 31.1
            Cells(rcell.Row, "I") = "L"
        Case Is < 22.3
            Cells(rcell.Row, "I") = "H"
        Case Is > 22.3, Is < 31.1
            Cells(rcell.Row, "I") = "M"
    End Select
Next rcell
End Sub

Excellent, this worked. Thank you so much. I used the first method.

You're welcome. Glad to help out and thanks for the feedback.