Copy multiple cells from several work books to one workbook

Hello Everyone,
I need your help desperately.....

I am trying to take data from the same five cells from 145 Workbooks into one master Workbook. My wife created an Invoice for each customer using an excel template and labeled them Invoice 001 to 145.

I want the cells "A16", "G15", "H36", "H37", "H38" from workbooks labeled "Invoice 001.xls" to "Invoice 145.xls" to feed column "B2", "C2", "D2", "E2", "F2" in Workbook "Income Statement Sheet.xls"

Example:

I want the cells "A16", "G15", "H36", "H37", "H38" from work book "Invoice 001.xls" to feed column "B2", "C2", "D2", "E2", "F2" in Work Book "Income Statement Sheet.xls"

Then

I want the cells "A16", "G15", "H36", "H37", "H38" from work book "Invoice 001.xls" to feed column "B3", "C3", "D3", "E3", "F3" in Work Book "Income Statement Sheet.xls"

Then

I want the cells "A16", "G15", "H36", "H37", "H38" from work book "Invoice 001.xls" to feed column "B4", "C4", "D4", "E4", "F4" in Work Book "Income Statement Sheet.xls"


Etc Etc until data from all 145 Invoice Workbooks is in "Income Statement Sheet.xls" I tried doing a loop but I am afraid I am too stupid to get this done. I want to run the macro each time she creates a new Invoice for her customer. Any help would be greatly appreciated since we are trying to get ready for tax time.

Thanks in advance.

Thanks Dave I am in working order. I needed to change the parts that are listed in red:

Workbooks("Income Statement Sheet").Sheets("Master Sheet").Range("b2000").End(xlUp).Offset(1, 0) = Range("A16")

Workbooks("Income Statement Sheet").Sheets("Master Sheet").Range("c2000").End(xlUp).Offset(1, 0) = Range("G15")

Workbooks("Income Statement Sheet").Sheets("Master Sheet").Range("d2000").End(xlUp).Offset(1, 0) = Range("H36")

Workbooks("Income Statement Sheet").Sheets("Master Sheet").Range("e2000").End(xlUp).Offset(1, 0) = Range("H37")

Workbooks("Income Statement Sheet").Sheets("Master Sheet").Range("f2000").End(xlUp).Offset(1, 0) = Range("H38")