Выделенному диапазону присвоить значение

Sub run()

For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1
 For j = Selection.Column To Selection.Column + Selection.Columns.Count - 1
    Cells(i, j) = Rnd * 1000
Next j
Next i

End Sub