Convert table data into list - VBA code

Change this line

Range("G1").Resize(UBound(arrangersArray) + 1, _
UBound(Application.Transpose(arrangersArray))) = arrangersArray

in to

sheets("Sheet2").Range("G1").Resize(UBound(arrangersArray) + 1, _
UBound(Application.Transpose(arrangersArray))) = arrangersArray

Thank you so much for your response.

I would also like to ask, is it possible to make row 1 in sheet2, automated, for example to extract the names and prices from sheet1 automatically in a list format instead of manually adding it in.

thank you for your help and time.