Hey Rahul,
I understand and got your point(and agreed too)of the statement "the space taken by same data needs bigger space and area in terms of original data and cells size get increased not in terms of font size but as compared to original data".Probably I got the solution of your problem.
Why don't you run another macro to format the paste area as same as the source area.I noticed that the only problem is with the row height and column width that changes once you paste the data in other sheet.I would request you to do the following to:
---place a button somewhere on the sheet where u paste the data
---Assign the following macro to the button:
sub FormatIssue()
'FORMAT THE ROW HEIGHT
Sheets("Sheet1").Select
Rows("1:30").Select (note: you can, however, make this range dynamic according to ur need)
Selection.RowHeight = 15.75 (note:I noticed that ur source sheet's row height is 15.75)
'FORMAT THE COLUMN WIDTH
Sheets("Copy issue").Select
Columns("B:C").Select
Selection.Copy
Sheets("Sheet1").Select
Columns("C:D").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Copy issue").Select
Columns("E:F").Select
Selection.Copy
Sheets("Sheet1").Select
Columns("F:G").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End sub
----After copying and pasting the data in other sheet(NOTE:AS OF NOW,PASTE THE DATA ANYWHERE IN COLUMN C,HENCE THE PASTED AREA WILL BE IN THE RANGE OF COL C TO G.HOWEVER, IF U LET ME KNOW UR EXACT WORK REQUIREMENT, THIS PASTED RANGE CAN BE MADE DYNAMIC, THEN U DO NOT NEED TO WORRY ABOUT WHERE U PASTE THE DATA, THEN WHEREVER U PASTE, IT WILL TAKE THE FORMAT AUTOMATICALLY), hit the button to run the macro.
It works perfectly fine for me.
Hope this helps.
Regards,
Kaushik