Existing Code Improvement for copy and pasting

[ItalianPlatinum]

Is there a way I could accomplish the below with a simpler approach?

With Workbooks("Compare").Sheets("C")
  rws = .Range("B2:B2").End(xlDown).row - 1
  Workbooks("Compare").Sheets("CN").Range("B2").Resize(rws, 1).Value = .Range("B2").Resize(rws).Value
End With
    
With Workbooks("Compare").Sheets("C")
  rws = .Range("E2:E2").End(xlDown).row - 1
  Workbooks("Compare").Sheets("CN").Range("F2").Resize(rws, 1).Value = .Range("E2").Resize(rws).Value
End With
        
With Workbooks("Compare").Sheets("C")
  rws = .Range("G2:G2").End(xlDown).row - 1
  Workbooks("Compare").Sheets("CN").Range("H2").Resize(rws, 1).Value = .Range("G2").Resize(rws).Value
End With
        
With Workbooks("Compare").Sheets("C")
  rws = .Range("R2:R2").End(xlDown).row - 1
  Workbooks("Compare").Sheets("CN").Range("V2").Resize(rws, 1).Value = .Range("R2").Resize(rws).Value
End With

 

[DanteAmor]

How about:

  Dim sh As Worksheet
  Dim rws As Long
  Set sh = Workbooks("Compare").Sheets("CN")
  With Workbooks("Compare").Sheets("C")
    rws = .Range("B2:B2").End(xlDown).Row - 1
    sh.Range("B2").Resize(rws, 1).Value = .Range("B2").Resize(rws).Value
    sh.Range("F2").Resize(rws, 1).Value = .Range("E2").Resize(rws).Value
    sh.Range("H2").Resize(rws, 1).Value = .Range("G2").Resize(rws).Value
    sh.Range("V2").Resize(rws, 1).Value = .Range("R2").Resize(rws).Value
  End With

 

[ItalianPlatinum]

How about:

  Dim sh As Worksheet
  Dim rws As Long
  Set sh = Workbooks("Compare").Sheets("CN")
  With Workbooks("Compare").Sheets("C")
    rws = .Range("B2:B2").End(xlDown).Row - 1
    sh.Range("B2").Resize(rws, 1).Value = .Range("B2").Resize(rws).Value
    sh.Range("F2").Resize(rws, 1).Value = .Range("E2").Resize(rws).Value
    sh.Range("H2").Resize(rws, 1).Value = .Range("G2").Resize(rws).Value
    sh.Range("V2").Resize(rws, 1).Value = .Range("R2").Resize(rws).Value
  End With

Dante - I apologize this is my fault I should have clarified to you better. So the file that i format has all the data needed. the only thing my file where the code is run off of is to dictate what elments to show based off of Range W in the below. there is no data being copied to the other upload file. the other file we call "upload" only has coulmn E in it located in B (and a lot of other data points). meanwhile my main file has both and looking to use that based off of column A inputs in colulmn W to format the upload. Sorry for misleading you I better depicted below where the elements are and a sample of where they would be on the upload file

Book2
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W
1	Type	Name	Category	Submissions	Unique Tag	IGNORE	IGNORE	NOT NEEDED	IGNORE	IGNORE	IGNORE	IGNORE	IGNORE	IGNORE	IGNORE	IGNORE	IGNORE	IGNORE	IGNORE		SKU		For Export
2	AA		1		ABC1			10													XXXXXX		AA
3	AA		2		BBB1			20													VVVVV		CC
4	AA		3		CCC1			10.5													WWWWW		EE
5	AA		4		DDD1			22													AAAAA
6	BB		1		ACD1			23													PPPPP
7	BB		2		ADD1			45													RRRSSS
8	BB		3		AFF1			95													TYTYT
9	BB		4		AGG1			78													LLLLL
10	CC		1		LLL1			45													UUUUU
11	CC		2		LLL2			65													MMMMM
12	CC		3		LLL3			37													BBBBB
13	CC		4		YYY4			19													DDDDDD
14	DD		2		UUU8			82													EEEEEE
15	DD		3		PPP0			34													QQQQQ
16	DD		4		MNM1			82													SSSSSS
17	EE		1		AFD1			71													BBBBBB
18	EE		2		DF21			17													RRSARA
19
20	Upload file Example
21	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V
22
Sheet1

 

[ItalianPlatinum]

Dante - I apologize this is my fault I should have clarified to you better. So the file that i format has all the data needed. the only thing my file where the code is run off of is to dictate what elments to show based off of Range W in the below. there is no data being copied to the other upload file. the other file we call "upload" only has coulmn E in it located in B (and a lot of other data points). meanwhile my main file has both and looking to use that based off of column A inputs in colulmn W to format the upload. Sorry for misleading you I better depicted below where the elements are and a sample of where they would be on the upload file

Book2
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W
1	Type	Name	Category	Submissions	Unique Tag	IGNORE	IGNORE	NOT NEEDED	IGNORE	IGNORE	IGNORE	IGNORE	IGNORE	IGNORE	IGNORE	IGNORE	IGNORE	IGNORE	IGNORE		SKU		For Export
2	AA		1		ABC1			10													XXXXXX		AA
3	AA		2		BBB1			20													VVVVV		CC
4	AA		3		CCC1			10.5													WWWWW		EE
5	AA		4		DDD1			22													AAAAA
6	BB		1		ACD1			23													PPPPP
7	BB		2		ADD1			45													RRRSSS
8	BB		3		AFF1			95													TYTYT
9	BB		4		AGG1			78													LLLLL
10	CC		1		LLL1			45													UUUUU
11	CC		2		LLL2			65													MMMMM
12	CC		3		LLL3			37													BBBBB
13	CC		4		YYY4			19													DDDDDD
14	DD		2		UUU8			82													EEEEEE
15	DD		3		PPP0			34													QQQQQ
16	DD		4		MNM1			82													SSSSSS
17	EE		1		AFD1			71													BBBBBB
18	EE		2		DF21			17													RRSARA
19
20	Upload file Example
21	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V
22
Sheet1

I am going to repost this to a new thread with better explanation I realize i didn't clarify my whole ask to begin with on this one