To put the results in the same row in column K, maybe you're looking for:
Data_rows = Range("A1", Range("A2000").End(xlDown)).Rows.Count
For i = 1 To Data_rows
Range("K" & i).Value = Application.Trim(Mid(Range("A" & i), InStr(Range("A" & i), "name,") + 5, 20))
Next i
or replace the line in the middle of the loop with one of these:
Range("K" & i).Value = Application.Trim(Mid(Range("A" & i), Application.Find("name,", Range("A" & i)) + 5, 20))
Range("K" & i).Value = Mid(Range("A" & i), Application.Find("name,", Range("A" & i)) + 5, 20)
Range("K" & i).Value = Mid(Range("A" & i), InStr(Range("A" & i), "name,") + 5, 20)
The first line above is in danger of choosing an awful lot of lines to process.
The lines with 'Application.Trim' in, use the worksheet version of Trim to strip off extra spaces both at each end and within the string.
p45cal