One way to get the 4 weeks' rolling AVG. Sort by weekNo ascending and create an index column.
Then create a calculated column as
4 weeks' rolling avg = SUMX ( FILTER ( ALL ( Table4 ), Table4[Index] <= EARLIER ( Table4[Index] )&& Table4[Index]> EARLIER ( Table4[Index] ) - 4 ), Table4[sales] ) / COUNTX ( FILTER ( ALL ( Table4 ), Table4[Index] <= EARLIER ( Table4[Index] )&& Table4[Index]> EARLIER ( Table4[Index] ) - 4 ), Table4[WeekNo] )