Loop through pivot table field and paste results in next row

Hi,

I am trying to write some code to loop through a field ("Name") in a pivot table then copy each values (b4) and paste the result in the next available cell in column D.

I am new to VBA and failing miserably so appreciate assistance from anyone who can help. See attached.

Thanks in advance.

Perfect. Thanks very much for your help!