Run time error 84, Attempting to Perform Operation on a Range

[stinkingcedar]

Hey guys, here is my code:

Set Efficiency = Sheets("Sheet1").Range(Sheets("Sheet1").Cells(StartCellRow + 6, StartCellColumn), Sheets("Sheet1").Cells(StartCellRow + 6, StartCellColumn + 21))Set Inefficiency = Sheets("Sheet1").Range(Sheets("Sheet1").Cells(StartCellRow + 8, StartCellColumn), Sheets("Sheet1").Cells(StartCellRow + 8, StartCellColumn + 21))


For Each cell In Array(Efficiency, Inefficiency)


    cell.Value = cell.Value / x


Next cell


EffIff = Efficiency + Inefficiency


EffIff.Copy
Sheets("Sheet2").Range("J4").PasteSpecial Transpose:=True

Having trouble formulating a code that will add these two ranges together, divide by a constant and then paste into another sheet.

 

[stinkingcedar]

That first long line of code is two lines in the actual code. Also, this is my variable declaration:

Dim ProjectName As StringDim StartCellRow As Double, StartCellColumn As Double
Dim Start As Range, Efficiency As Range, Inefficiency As Range
Dim EffIff As Range
Dim cell As Range, cell2 As Range
Const x As Long = 1000000
Const y As Long = 1000