I am trying to transfer data from Sheet 1 to Sheet 2, paste every 10 separate rows, calculate the sum of the value of column M for every 10 rows in row 11, and write the word TOTAL under column J, inserting 5 empty rows between each range and the other.
'Is it possible to shorten only these rows instead of
'writing the names of the 16 columns that currently exist?[/CODE]
VBA Code:
[CODE] WSdest.Range("A" & fin) = WSdata.Range("A" & x)
WSdest.Range("B" & fin) = WSdata.Range("B" & x)
WSdest.Range("C" & fin) = WSdata.Range("C" & x)
*
'Is it possible to shorten only these rows instead of
'writing the names of the 16 columns that currently exist?[/CODE]
Last edited: