Sub Ñëó÷àéíûå×èñëà1()
Dim filePath As String
filePath = "C:\St\Ñëó÷àéíûå ÷èñëà.xls"
Dim sheetName As String
sheetName = "Ñëó÷. ÷èñëà"
Dim myWorkbook As Workbook
Set myWorkbook = Workbooks.Open(filePath)
Dim sheetNumber As Integer
sheetNumber = -1
For i = 1 To myWorkbook.Worksheets.Count
If myWorkbook.Worksheets(i).Name = sheetName Then
sheetNumber = i
Exit For
End If
Next i
If sheetNumber = -1 Then
MsgBox "Ëèñòà ñ èìåíåì 'Ñëó÷. ÷èñëà' íå îáíàðóæåíî"
Exit Sub
End If
Dim mySheet As Worksheet
Set mySheet = myWorkbook.Worksheets(sheetNumber)
Dim firstEmptyLine As Integer
firstEmptyLine = 1
While Trim(mySheet.Cells(firstEmptyLine, 1).Value) <> ""
firstEmptyLine = firstEmptyLine + 1
Wend
For i = firstEmptyLine To firstEmptyLine + 5
mySheet.Cells(i, 1).Value = Int(100 * Rnd())
Next i
myWorkbook.SaveAs Filename:=filePath
MsgBox "Ñëó÷àéíûå ÷èñëà ðàçûãðàíû!"
End Sub