请编写一个宏程序，用于生成200个从0到100的随机数，并将数据存储在Excel电子表格的前两行中，然后在另一个电子表格中重新排列前两列中的数据。

以下是宏程序的代码：

Sub GenerateRandomNumbers()
Dim i As Integer
Dim num As Integer
Dim rng As Range

'生成随机数
For i = 1 To 200
num = Int((100 - 0 + 1) * Rnd + 0)
Worksheets("Sheet1").Cells(i, 1).Value = num
num = Int((100 - 0 + 1) * Rnd + 0)
Worksheets("Sheet1").Cells(i, 2).Value = num
Next i

'将数据存储在另一个电子表格中
Set rng = Worksheets("Sheet1").Range("A1:B200")
rng.Copy Destination:=Worksheets("Sheet2").Range("A1")

'重新排列前两列中的数据
Worksheets("Sheet2").Range("A1:B200").Sort Key1:=Worksheets("Sheet2").Range("A1"), _
Order1:=xlAscending, Header:=xlYes
End Sub

请注意，这个宏程序会在Sheet1中生成200个随机数，并将它们存储在Sheet2中。最后，它会重新排列Sheet2中的数据。