Hi all,

I recently created 40 identical models (and I use this term very loosely ;P) to track the number of motorcycles created across 40 factories worldwide. The manager at each factory is responsible for filling out a separate spreadsheet each day with the number of motorcycles produced and some other detailed information for that factory.

Since I will be receiving all these models at the end of the week, I'd like to consolidate a couple pieces of data from within each model in a Summary report I've created without having to open each one individually. I've created a macro to pull, for example, cells A16, B102, C103:C105, etc. from each worksheet to create a consolidated summary.

I am very close to finishing and just have one problem that I'd like to run by you all: Within the "data pull" logic I tell the VB code to sum multiple cells but for some reason the macro crashes if the cell is empty. Is this a common problem that I should be accounting for? Here's the code in question:

Workbooks.Open Filename:=FileLocation
            Sheets("Workbook").Select
            Metric1 = Cells(Row1, Column - 6).Value + Cells(Row1, Column - 5).Value + Cells(Row1, Column - 4).Value + Cells(Row1, Column - 3).Value + Cells(Row1, Column - 2).Value + Cells(Row1, Column - 1).Value + Cells(Row1, Column).Value
            Metric2 = Cells(Row2, Column).Value
            Metric3 = Cells(Row3, Column).Value
            Metric4 = Cells(Row4, Column - 6).Value + Cells(Row4, Column - 5).Value + Cells(Row4, Column - 4).Value + Cells(Row4, Column - 3).Value + Cells(Row4, Column - 2).Value + Cells(Row4, Column - 1).Value + Cells(Row4, Column).Value
            Metric5 = Cells(Row5, Column).Value
            Metric6 = Cells(Row6, Column).Value
            Metric7 = Cells(Row7, Column - 6).Value + Cells(Row7, Column - 5).Value + Cells(Row7, Column - 4).Value + Cells(Row7, Column - 3).Value + Cells(Row7, Column - 2).Value + Cells(Row7, Column - 1).Value + Cells(Row7, Column).Value
            Metric8 = Cells(Row8, Column).Value
            Metric9 = Cells(Row9, Column).Value