Give name and sales number of lead cashier?

[RankSinatra]

I have a table with dates in the horizontal axis and names in vertical. I need a function that would give me both the name of the top salesperson for a week ending in a selected date and their sales for that period.
For example, for the same information by day I used these 2 equations:
=MAX(INDEX('Yearly Input - AP'!C4:NN36,0,MATCH(D5,'Yearly Input - AP'!C3:NN3,0))) <-Max sales on that date
=IFERROR(INDEX('Yearly Input - AP'!A4:A36,MATCH('Cover Tab'!E7,INDEX('Yearly Input - AP'!C4:NN36,0,MATCH(D5,'Yearly Input - AP'!C3:NN3,0)),0)),"No data found") <- Name of salesperson

Range is all dates in the coming year, C4:NN36
Date referenced is chosen in cell on same sheet, D5

Need name and total max sales per week?

 

[RankSinatra]

BUMP
Just need to know how to calculate the max of each row's sums within a variable set of columns depending on last day of the week.