VBA Product of Arrays

[rmCalgary]

I have a code that is taking vertical data from one sheet and scheduling it out based on an "OnStream" date that is predefined. It returns a row of data for each component type. The next thing I need to do is multiply insert a function that multiplies each of those rows by a set row from of prices.

So the Gas row needs to be multiplied by row 6, component C2 multiplied by row 7, component C3 by row 8 etc. Then returned below all of the component rows.

I would really appreciate the help on this matter.

Sub MoveComponents(TCDesc, OnStream, WellCnt)
    'paste long desc in column A, TCDesc in B, Component type in C and well # in D
    
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 4, 0).Value = TCDesc & "_Gas_" & WellCnt
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 4, 1).Value = TCDesc
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 4, 2).Value = "Gas"
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 4, 3).Value = WellCnt
    Sheets(TCDesc).Range("E42:E741").Copy
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 4, OnStream + 3).PasteSpecial Paste:=xlValues, Transpose:=True
    
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 3, 0).Value = TCDesc & "_C2_" & WellCnt
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 3, 1).Value = TCDesc
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 3, 2).Value = "C2"
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 3, 3).Value = WellCnt
    Sheets(TCDesc).Range("G42:G741").Copy
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 3, OnStream + 3).PasteSpecial Paste:=xlValues, Transpose:=True


    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 2, 0).Value = TCDesc & "_C3_" & WellCnt
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 2, 1).Value = TCDesc
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 2, 2).Value = "C3"
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 2, 3).Value = WellCnt
    Sheets(TCDesc).Range("H42:H741").Copy
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 2, OnStream + 3).PasteSpecial Paste:=xlValues, Transpose:=True
    
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 1, 0).Value = TCDesc & "_C4_" & WellCnt
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 1, 1).Value = TCDesc
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 1, 2).Value = "C4"
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 1, 3).Value = WellCnt
    Sheets(TCDesc).Range("I42:I741").Copy
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 - 1, OnStream + 3).PasteSpecial Paste:=xlValues, Transpose:=True
    
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6, 0).Value = TCDesc & "_C5_" & WellCnt
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6, 1).Value = TCDesc
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6, 2).Value = "C5"
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6, 3).Value = WellCnt
    Sheets(TCDesc).Range("J42:J741").Copy
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6, OnStream + 3).PasteSpecial Paste:=xlValues, Transpose:=True
    
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 + 1, 0).Value = TCDesc & "_Oil_" & WellCnt
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 + 1, 1).Value = TCDesc
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 + 1, 2).Value = "Oil"
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 + 1, 3).Value = WellCnt
    Sheets(TCDesc).Range("Q42:Q741").Copy
    Sheets("PUD_Prod").Range("A152").Offset(WellCnt * 6 + 1, OnStream + 3).PasteSpecial Paste:=xlValues, Transpose:=True
    
    Sheets ("PUD_Prod")
End Sub

 

[pbornemeier]

This is unclear:

So the Gas row needs to be multiplied by row 6, component C2 multiplied by row 7, component C3 by row 8 etc. Then returned below all of the component rows.

Please use one of the tools mentioned in my sig to post a portion of you worksheets involved in the quoted section.