Returns only first row with lookupvalue

Here's another demonstration of my data:

Hello Laufer_Israel 

i don't get the point. Its basically the same data, just that you added a column and renamed another. I slightly adapted my code, and that's it. But the concept is always the same

let
	Source = #table
	(
		{"Month","Code","Name","Product","Sales per product","Total sales 2018"},
		{
			{"January","1","One","PP","2","220"},	{"January","1","One","SS","3","220"},	{"January","1","One","YY","4","220"},	{"January","1","One","MM","9","220"},	
			{"January","2","Two","PP","1","167"},	{"January","2","Two","SS","4","167"},	{"January","2","Two","YY","7","167"},	{"January","2","Two","MM","2","167"},	
			{"January","3","Three","PP","3","701"},	{"January","3","Three","SS","1","701"},	{"January","3","Three","YY","3","701"},	{"January","3","Three","MM","8","701"},	
			{"February","1","One","PP","2","220"},	{"February","1","One","SS","3","220"},	{"February","1","One","YY","4","220"},	{"February","1","One","MM","9","220"},	
			{"February","2","Two","PP","1","167"},	{"February","2","Two","SS","4","167"},	{"February","2","Two","YY","7","167"},	{"February","2","Two","MM","2","167"},	
			{"February","3","Three","PP","3","701"},	{"February","3","Three","SS","1","701"},	{"February","3","Three","YY","3","701"},	{"February","3","Three","MM","8","701"}

					}
	),

    ChangeType = Table.TransformColumnTypes(Source,{{"Code", Int64.Type}, {"Name", type text}, {"Product", type text}, {"Sales per product", Int64.Type}, {"Total sales 2018", Int64.Type}, {"Month", type text}}),
    Group = Table.Group(ChangeType, {"Month", "Code", "Name", "Total sales 2018"}, {{"AllRows", each _, type table [Code=number, Name=text, Product=text, Quantity=number, Total sales 2018=number]}}),
	AddIndex = Table.TransformColumns
	(
		Group,
		{{"AllRows", each Table.AddIndexColumn(_,"Index",1 )}}
	),
	AddColumn = Table.TransformColumns
	(
		AddIndex,
		{{"AllRows", each Table.AddColumn(_,"Total Sales 2018 new",(add)=> if add[Index]=1 then add[#"Total sales 2018"] else null )}}
	),
    DeleteOtherColumns = Table.SelectColumns(AddColumn,{"AllRows"}),
    ExpandAllRows = Table.ExpandTableColumn(DeleteOtherColumns, "AllRows", { "Month", "Code","Name", "Product", "Sales per product", "Total sales 2018", "Total Sales 2018 new"}, {"Month", "Code","Name", "Product", "Sales per product", "Total sales 2018", "Total Sales 2018 new"})
in
    ExpandAllRows

If this post helps or solves your problem, please mark it as solution (to help other users find useful content and to acknowledge the work of users that helped you)
Kudoes are nice too

Have fun

Jimmy

Hello Laufer_Israel 

have you been able to solve the problem with the replies given?

If so, please mark it as solution (to help other users find useful content and to acknowledge the work of users that helped you)
Kudoes are nice too

All the best

Jimmy