please help in this program
 

In a new sheet go to A1 and enter the value 1. In A2 enter the
following formula:
=IF(RAND()<0.9,A1,A1+1)
Copy the formula down until A30. The result will be groups of
increasing numbers. Select the entire column, Copy, Paste Special...
Values only, to stabilize the data.
Class Libraries
Task 1
Write a VBA macro to go down the list in column A:A. Every time a new
group starts, an empty row should be inserted to distinguish between
groups.
Task 2
Write another VBA macro to also insert a row before the first group.
Each inserted cell should now not be blank by say: Group X where X is
the number of the group that is following.

THATS THE PROBLEM , IF U PLEASE POST ANY HELP, IN VBA OF COURSE, THE
PROGRAMS SHOULD RUN FROM VB