Sub HighlightNonEmptyCellsAfter1InColumnI()
Dim ws As Worksheet
Dim lastRow As Long, lastColumn As Long
Dim currentRow As Long, currentColumn As Long
Dim startColumn As Long
Dim cellValue As Variant
Dim foundCell As Range
Dim found As Boolean

Set ws = ThisWorkbook.Sheets("Grain Partners")

lastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row
lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

Set foundCell = ws.Range("I1:I" & lastRow).Find(What:=1, LookIn:=xlValues, LookAt:=xlWhole)

If Not foundCell Is Nothing Then
MsgBox "Найдена ячейка с числом 1 в строке " & foundCell.Row

startColumn = foundCell.Column + 1

found = False

For currentColumn = startColumn To lastColumn
cellValue = ws.Cells(foundCell.Row, currentColumn).Value
If Not IsEmpty(cellValue) And Len(cellValue) > 0 Then
ws.Cells(foundCell.Row, currentColumn).Interior.Color = RGB(255, 255, 0)
found = True
End If
Next currentColumn

If Not found Then
MsgBox "Не найдено не пустых значений в строке " & foundCell.Row & " начиная от найденной ячейки вправо."
End If
Else
MsgBox "Не найдено число 1 в столбце I."
End If
End Sub