vba data collection based on criteria

[Villalobos]

Hello, I am trying to create a code which is able to collect the data (from Sheet1) based on criteria and transfer these data (to Sheet2). My target is that to collect those data from Sheet1 which date are lower than today +1 day and sum these quantities on Sheet2. To SUMIFS the data I use this: Application.WorksheetFunction.Sheets("...").Cells(rw, ...).Value = SumIfs(Sheets("...").Range("..."), Sheets("...")Range("..." : "...") and so on, but now I stuck. Could somebody help me how should I do it? Thanks in advance the reply

Data of Sheet2 - Result of macro run
Item	Quantity
AA	200
BB	450
CC	700
DD	400

<tbody>
</tbody>

Data of Sheet1
Item	Quantity	Date
AA	100	30.12.2013
DD	100	01.30.2014
BB	200	28.12.2013
BB	250	29.12.2013
CC	300	29.12.2013
BB	300	11.02.2014
CC	100	30.12.2013
CC	300	30.12.2013
DD	400	01.05.2014
AA	100	31.12.2013

<tbody>
</tbody>

<tbody>
</tbody>