Probably more elegant and more efficient ways to do this
Option Explicit
Sub sName()
Dim oList As ListObject
Set oList = Worksheets("Sheet2").ListObjects("Table1")
With Worksheets("Sheet1")
On Error GoTo NiceExit
.Cells(6, 2).Value = Application.VLookup(.Cells(6, 1).Value, oList.DataBodyRange, 2, False)
.Cells(6, 3).Value = Application.VLookup(.Cells(6, 1).Value, oList.DataBodyRange, 3, False)
.Cells(6, 4).Value = Application.VLookup(.Cells(6, 1).Value, oList.DataBodyRange, 5, False)
.Cells(6, 5).Value = Application.VLookup(.Cells(6, 1).Value, oList.DataBodyRange, 7, False)
Exit Sub
End With
NiceExit:
End Sub
Sub uUpdate()
Dim r As Long
Dim oList As ListObject
Set oList = Worksheets("Sheet2").ListObjects("Table1")
With Worksheets("Sheet1")
r = Application.Match(.Cells(6, 1).Value, oList.ListColumns(1).Range, 0)
oList.ListRows(r - 1).Range.Cells(2).Value = .Cells(6, 2).Value
oList.ListRows(r - 1).Range.Cells(3).Value = .Cells(6, 3).Value
oList.ListRows(r - 1).Range.Cells(5).Value = .Cells(6, 4).Value
oList.ListRows(r - 1).Range.Cells(7).Value = .Cells(6, 5).Value
End With
Exit Sub
NiceExit:
End Sub