Outputting numbers 1 to 100 in rows of 10

Hello,

Could someone give me help with Excel: how to output the numbers 1 to 100 (10 rows with 10 columns) using a For loop. so far i have the following

For x = 1 To 10
Cells(1, x) = x
Next x

For x = 1 To 10
Cells(2, x) = x + 10
Next x

etc....

This works but I would like to make the code as short as possible. As you can guess I'm a beginner to using Excel so any help would be much appreciated.