Copy rows to another sheet. Criteria = cells in column H is not em
 

I need VBA code so the user can select another Sheet (ex. "April07") with an
input in an inputbox.
Then the code must find all rows which is not empty in the cells in Column
H. All figures in the rows must be copied and pasted to the sheet (ex. May07)
where the process has to be started from.
The figures are placed in difference rows in the source sheet (April 07) and
should be placed in the target sheet May07 as the first rows under the
headers.
This process has to be done every month.

Hope any can help. Thanks inadvance.