fayez_MrExcel
Active Member
- Joined
- Oct 29, 2005
- Messages
- 439
- Office Version
- 365
- Platform
- Windows
Is there any way to write the syntax below in one line only? Thanks
.Cells(sRow, "A").Copy
Cells(dRow, "E").PasteSpecial xlValues
.Cells(sRow, "B").Copy
Cells(dRow, "F").PasteSpecial xlValues
.Cells(sRow, "Y").Copy
Cells(dRow, "G").PasteSpecial xlValues
.Cells(sRow, "AB").Copy
Cells(dRow, "H").PasteSpecial xlValues
Cells(dRow, "D").Value = serial_number
.Cells(sRow, "A").Copy
Cells(dRow, "E").PasteSpecial xlValues
.Cells(sRow, "B").Copy
Cells(dRow, "F").PasteSpecial xlValues
.Cells(sRow, "Y").Copy
Cells(dRow, "G").PasteSpecial xlValues
.Cells(sRow, "AB").Copy
Cells(dRow, "H").PasteSpecial xlValues
Cells(dRow, "D").Value = serial_number