Looping till empty cell

Heya! I have working solver macros:

Sub Macro1()

    SolverOk SetCell:="$E$2", MaxMinVal:=3, ValueOf:=0, ByChange:="$G$2:$J$2", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$E$2", MaxMinVal:=3, ValueOf:=0, ByChange:="$G$2:$J$2", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve
    
End Sub

Now i need to put in in the loop and i dont know how to adjust cells reference of the code to make it work:

Sub Macro1()

NumRows = Range("A2", Range("A2").End(xlDown)).Rows.Count

For x = 1 To NumRows
     
Range("E2").Select

    SolverOk SetCell:="$E$2", MaxMinVal:=3, ValueOf:=0, ByChange:="$G$2:$J$2", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$E$2", MaxMinVal:=3, ValueOf:=0, ByChange:="$G$2:$J$2", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve
    
ActiveCell.Offset(1, 0).Select
Next

End Sub

Any help? Please..