error in pivot column

I imported each sheet as a different query-> then transformed each sheet similarly ->

I appended the 3 queries together to get the final formatted data

Here's the advanced editor code for Sheet1. 

let
    Source = Excel.Workbook(File.Contents("J:\data\powerbiForum\zshop.xls"), null, true),
    Sheet2 = Source{[Name="Sheet1"]}[Data],
    #"Changed Type" = Table.TransformColumnTypes(Sheet2,{{"Column1", type text}, {"Column2", type text}, {"Column3", type text}, {"Column4", type text}, {"Column5", type text}, {"Column6", type text}, {"Column7", type text}, {"Column8", type text}, {"Column9", type text}, {"Column10", type text}, {"Column11", type text}, {"Column12", type text}, {"Column13", type text}, {"Column14", type text}}),
    #"Promoted Headers" = Table.PromoteHeaders(#"Changed Type", [PromoteAllScalars=true]),
    #"Filtered Rows" = Table.SelectRows(#"Promoted Headers", each ([City] = "New York" or [City] = "Ohio")),
    #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Filtered Rows", {"City", "Product ID"}, "Attribute", "Value")
in
    #"Unpivoted Other Columns"

So if you create 3 queries and copy this code for each, you'll need to alter the line "Source{[Name="SheetX.......

replacing X with the Sheet number.

Once you've done that 'Append Queries as new' and tidy up the column names and data types.  Like this

et
    Source = Table.Combine({Sheet1, Sheet2, Sheet3}),
    #"Renamed Columns" = Table.RenameColumns(Source,{{"Attribute", "Date"}}),
    #"Changed Type" = Table.TransformColumnTypes(#"Renamed Columns",{{"Value", Int64.Type}, {"Date", type date}})
in
    #"Changed Type"