I tried runnin' this code in my workbook
Sub MyCopy()
Dim myRow As Long
myRow = ActiveCell.Row
Sheets(1).Cells(myRow, 2).Copy Sheets(2).Range("X1")
Sheets(1).Cells(myRow, 3).Copy Sheets(2).Range("C8")
Sheets(1).Cells(myRow, 4).Copy Sheets(2).Range("H8")
Sheets(1).Cells(myRow, 5).Copy Sheets(2).Range("Q8")
Sheets(1).Cells(myRow, 11).Copy Sheets(2).Range("G9")
End Sub
it did work. But could anyone help me with this problem/s:
1. when I first ran the code it prompted: CANNOT CHANGE PART OF A MERGED CELLS.
So I unmerged the merged cells in the destination sheet.
2. When I ran again the code, it did work but the problem this time is THE DESTINATION CELLS IN ANOTHER SHEET ADJUSTED ITS CELL HEIGHT THEREBY DISTORTING THE LAYOUT OF THE DESTINATION SHEET.
Could anyone help me as to how to fix this without destroying the layout of the destination sheet?
Attached is my excel workbook.
Bookmarks