Sub copyAndCleanTheMess()


Sheets("Sheet1").Select
Sheets("Sheet1").UsedRange.Select
Selection.Copy

Sheets("Sheet2").Select
ActiveSheet.Paste

'Remove all formatting except changes in font and font size

'Turn off screen updates to improve performance
Application.ScreenUpdating = False

'Clear formatting
Selection.ClearFormats

'If you would like to restore the font to the application default as defined in
'Tools|Options|General, remove the ' from the beginning of the line below
'Selection.Font.Name = Application.StandardFont

'Restore screen updates to display changes
Application.ScreenUpdating = True

End Sub