В данный момент все телепаты находятся в отпуске. Сформулируйте свой вопрос как-нибудь попонятнее.
Sub fill_negative()
Dim i As Integer
Dim j As Integer
Dim objSheet As Excel.Worksheet
Dim objCell As Excel.Range
Set objSheet = Application.ActiveWorkbook.ActiveSheet
For j = 1 To 10
For i = 1 To 10
Set objCell = objSheet.Cells(i, j)
objCell.Value = Int(Rnd(i * j) * -100)
Next i, j
End Sub