Copy data column wise to new sheet with code

Hello Experts
I have written the code to create a new sheet along with headings. I am trying to copy the data from the source sheet (Consolidated) to the destination sheet (Sales) in some columns and insert formulas in some with the help of a code. I have written the beginning and end of the code as required, but I am not able to write the code to copy the data and resize the rows of destination sheet with the source sheet. I would really appreciate if someone can help me to get at least the first column then I can get the rest of the columns. The main problem is defining the variable and resizing the data.
Thank you in advance.

Please Login or Register  to view this content.

Try the above

You have seen this type of code before ....

ICOL is an array of the column numbers in "Consolidated" from where the data is to be extracted. the zero (o) relates to the column for "Rate %" which does NOT appear in "Consolidated" so the data extract is "skipped" if any ICOL value is zero.

CC is the column count relating the columns in "Sales"

You don't know what this line is ....

Dim c As Long, cc As Long, r As Long, clr As Integer, icol

It is simply a Dimension statement (declaration of the attributes of a variable) with multiple entries rather than writing individual lines

Dim c As Long
Dim cc As Long...... etc


Ditto

Dim lastRow As Long
Dim OutputArray As Variant
Dim LastRowSales As Long
Dim LastRowconsolidated As Long

You do not appear to have made much progress if you do understand these basic constructs of VBA.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Good Morning John Topley. Thank you very much for the code and helping me to correct the formula.
I tried to give rep, but once again I am getting the same message. Wonder what it means....
rep.png