IF a value in one column is => 10,000, Yes in next column or no in next column if false

[OilEconomist]

Thanks in advance, and I will let you know what final result works.

Objective: Within the same sheet if column J entry >= 10,000, Then Column K = "Yes", Else Column K = "No". The number of rows in the worksheet will vary when I use this sheet so I want to make it find the last row.

Sub Value()

Worksheets("Sheet1").Activate
Dim LastRow1000 As Long
LastRow1000 = ThisWorkbook.Worksheets("Shee1").Cells(Rows.Count, 1).End(xlUp).Row

erow = Worksheets("Sheet1").Columns.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

For i = 2 To LastRow1000
If Worksheets("Sheet1").Columns.Cells(erow, 10) >= 10000 Then
Worksheets("Sheet1").Columns.Cells(erow, 11) = "Yes"
Else
Worksheets("Sheet1").Columns.Cells(erow, 11) = "No"
End If
Next i

End Sub

 

[OilEconomist]

FDibbins, as I indicated that I am trying to automate my model. I have to download this sheet (not data) every month and the number of rows changes. I prefer to import this into my model and click a button. The macro does several other things so I wanted to this versus a formula. Also, when you start to have too many formulas or ranges become long, MS Excel starts giving problems and when you are editing.

I could copy the data from the sheet and paste it into the model where the formulas are already set, but versus mixing with formulas and macros, I prefer to go one way.