Adding used ranges from various sheets to one sheet

[JohnnyBGood]

Hi,

I want to copy (values/formats only) each used range from Sheet2 to Sheet10 onto Sheet1 starting at A1.

Can anyone help with a VBA Code

Thanks for any help.