Dim n As Integer
Dim cik As Integer, matrx As Integer
Dim sTemp
Dim objExcel As Excel.Application

On erro GoTo Error

Set objExcel = New Excel.Application
objExcel.Workbooks.Add ("D:\test.xls")
 n =  0 
 For cik =  1  To VSFlexGrid1.Rows -  1 
 n = n +  1 
 If VSFlexGrid1.Cell(flexcpText, n,  1 ) <> "" Then
 With objExcel.ActiveSheet
'.Rows.Insert ("n")
.Cells(n -  1 ,  1 ).Value = VSFlexGrid1.Cell(flexcpText, n,  1 )
.Cells(n -  1 ,  2 ).Value = VSFlexGrid1.Cell(flexcpText, n,  2 )
.Cells(n -  1 ,  3 ).Value = VSFlexGrid1.Cell(flexcpText, n,  3 )
.Cells(n -  1 ,  4 ).Value = VSFlexGrid1.Cell(flexcpText, n,  4 )
.Cells(n -  1 ,  5 ).Value = VSFlexGrid1.Cell(flexcpText, n,  5 )
.Cells(n -  1 ,  6 ).Value = VSFlexGrid1.Cell(flexcpText, n,  6 )
.Cells(n -  1 ,  7 ).Value = VSFlexGrid1.Cell(flexcpText, n,  7 )
 End With
 End If
 Next cik
 MsgBox "DATA ...", _
 vbInformation, "... Transfer in EXCEL !!!"
 objExcel.Visible = True
 Set objExcel = Nothing
 
 Exit Sub
 Set objExcel = Nothing
Error:
MsgBox ("Error " & Err.Description)

   objExcel.Range("A4").Select
   For i =  1  To VSFlexGrid1.Rows -  2 
   objExcel.Selection.Insert Shift:=xlDown
   Next i