ItalianPlatinum
Well-known Member
- Joined
- Mar 23, 2017
- Messages
- 793
- Office Version
- 365
- 2019
- Platform
- Windows
Is there a way I could accomplish the below with a simpler approach?
VBA Code:
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