Update Table (ListObject) Row Values, based on first cell value - excel

Question

I want to update data in any table using this format:
Dim Update As String
Dim FindUpdate As Range
Update = Range("USER_NAME").value
With Sheets("Settings")
Set FindUpdate = .Range("USERS_TABLE").Find(What:=Update, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext)
.Cells(FindUpdate.row, 6).value = Computer
End With
This code works but it requires me to put this table at the beginning of the Sheet.
I want to change values in a table (ListObjects("USERS_TABLE")) regardless of where it's positioned in the worksheet. Changing the range to a table's name USERS_TABLE did not do the trick.
Ideally I want to change the above code to:
Dim Update As String
Update = Range("USER_NAME").value ' This is a Namedrange
' declare a variables that will point to a table I want to access
dim ws as Worksheet
Set ws = ActiveSheet
Dim table_row as ListRow
Set table_row = ws.ListObject("USERS_TABLE").ListRows.**SOMETHING_TO_HELP_ACCESS_THE_TABLE_ROW_HERE**
Dim FindUpdate As Range
With table_row ' REPLACE SHEETS WITH TABLE_ROW
Set FindUpdate = .**Row?**.Find(What:=Update, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext)
' AND CAUSE IT'S A TABLE, MAYBE A COLUMN HERE?
.**Cells(or Range)?**(FindUpdate.**row**, 6).value = Computer
End With

Answer 1

TO #VBasic2008, sorry for the confusion, but... This is what I have... It works I can add rows using this
Public Sub Add_Table_Row()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim add_row As ListRow
Set add_row = ws.ListObjects("Names_Table").ListRows.Add(1)
With add_row
.Range(3) = "Sample Text"
End With
End Sub
I want to use the above method to update Table values, like this...
Public Sub Update_Table_Row()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim update_row As ListRow
Set update_row = ws.ListObjects("Names_Table").ListRows ' STUCK HERE
With update_row
.Range(3) = "Change This Text"
End With
End Sub

Answer 2

is it work?
Public Sub Update_Table_Row()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim update_row As ListRow
Set update_row = ws.ListObjects("Names_Table").ListRows ' STUCK HERE
With update_row
.Range(3) = "Change This Text"
End With
End Sub

Answer 3

Sorry for the late reply... Found a simple solution to ADD and UPDATE a Table (ListObjects.ListRow) Row
1. Add Table Row with values
Sub Add_Product()
' Declare Products Database Variable
Dim Products_Table As ListObject
Set Products_Table = Sheets("Products").ListObjects("PRODUCT_DATABASE")
' Declare Add Product Variable
Dim Product_New_Row As ListRow
Set Product_New_Row = Products_Table.ListRows.Add(1)
With Product_New_Row
.Range(1) = "PRODUCTSKU01" ' 1st Column
.Range(2) = "New Product Name" ' 2nd Column
.Range(5) = 1000 ' 5th Column
End With
End Sub
2. Change Table Row Values
Sub Update_Product()
' Declare Products Database Variable
Dim Products_Table As ListObject
Set Products_Table = Sheets("Products").ListObjects("PRODUCT_DATABASE")
' Declare Search Value
Dim Find_Value As String
Find_Value = "PRODUCTSKU01" ' 1st Column of the Products Database
' Declare Product Row
Dim Product_Update_Row As Range
Set Product_Update_Row = Products_Table.DataBodyRange.Find( _
What:=Find_Value, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext _
)
' Update Product
With Product_Update_Row
' Change column # value
.Cells(1, 2).value = "Change Product Name"
End With
End Sub