data indexing macro

Something like this:

Option Explicit

Sub CopyValuesTo10Table()
Dim wsM  As Worksheet
Dim MyV  As Double
Dim Rw   As Long
Dim FR   As Long
Dim LR   As Long
Dim rFnd As Range

Set wsM = Sheets("Master sheet")
On Error Resume Next

With Sheets("Data input")
    .Range("D:E").MergeCells = False
    FR = .Range("D:D").Find("Name", LookIn:=xlValues, LookAt:=xlWhole).Row
    LR = .Range("D" & .Rows.Count).End(xlUp).Row
    
    For Rw = FR To LR
        MyV = .Range("E" & Rw)
        With .Range("D" & Rw)
            If .Value <> "Name" And .Value <> "" And MyV > 0 Then
                Set rFnd = wsM.Range("A:A").Find(.Value, LookIn:=xlValues, LookAt:=xlWhole)
                If Not rFnd Is Nothing Then
                    rFnd.Offset(, 1).Resize(, 9).Value = rFnd.Offset(, 2).Resize(, 9).Value
                    rFnd.Offset(, 10).Value = MyV
                    Set rFnd = Nothing
                End If
            End If
        End With
    Next Rw
End With

End Sub