Macro to Sum cells from same column on multiple sheets and past result to Weekly Income sheet

I trying the sum the total income per week of each Stock Sheet onto a Weekly Income Sheet. I trying to copy a cell from Column Q in Stock Sheet based on the range of cells in Column B of Stock Sheet that meets the criteria cell D4 of Weekly Income sheet that is =< that and > than 7 days before that. Cells that meet the same criteria from other Stock Sheets in the workbook will be added and the result pasted to the corresponding cell D4 in the Weekly Income sheet in column A. I want this repeated for all the dates in Column D and H in the Weekly Income sheet. I want to do the same thing for Column X and M in Stock Sheets and paste in corresponding cells in Weekly Income sheet. I was doing this with a formula in each cell of the Weekly Income sheet but it got very long and I could only put so many terms in. I will be adding sheets for each of the stocks that I trade so the number will grow. I hide any sheets that don't have open positions and unhide them when I open a new position. So this will apply only to open sheets when I run the macro. Column B of the stock Sheets isn't filled in until the position is closed. The attached file is an example of the data I have. I'm using XL 2003 so anything done has to be able to run on this version.