HI akshita,
i don't know any automatic way of doing it, but you can make a cycle like:
Private Sub MSFlexGrid1_Click()
Dim response
Dim row_in_case
Dim i As Integer
Dim j As Integer
row_in_case = MSFlexGrid1.Row
MsgBox "rowe:" & row_in_case
response = MsgBox("would you like to add a new row?", vbYesNo, "your title here"

If response = vbYes Then
With MSFlexGrid1
.Rows = .Rows + 1 ' add a new row
'copy all other rows to next position
For i = .Rows - 1 To 0 Step -1
.Row = i + 1
For j = 0 To .Cols
'copy all cols to next position row in the exact col position
' (...)
Loop
Loop
End With
'now, do whatever you want in the new row - row_in_case:
MSFlexGrid1.Row = row_in_case
' now treat it the way you want
Else
Exit Sub
End If
End Sub
hope it helps,
good work ===================
* Marta Oliveira *
===================
marta100@aeiou.pt
-------------------
CPC_TA- Braga
-------------------
Portugal
===================