Private Sub excel_click()
Dim n As Integer, n1 As Integer
Dim i As Integer
Dim Dat  As String, ret As String, Er As String
Dim Rut As Integer
Dim objExcel As Excel.Application

Set objExcel = New Excel.Application

On Error GoTo Error
objExcel.Workbooks.Open ("D:\dopsal.xls")

'****Denum Parc
objExcel.Cells( 5 ,  7 ).value = frmStatCad.DTPicker1
'***Denum Ruta
objExcel.Cells( 6 ,  3 ).value = Piece(frmStatCad.cmbSubd.Text, "\",  2 )

n1 =  9  '****
For i =  2  To VSFlexGrid1.Rows -  1 
n1 = n1 +  1 
For n =  1  To  9 
objExcel.Cells(n1, n).value = VSFlexGrid1.Cell(flexcpText, i, n -  1 )
Next n
Next i
 
 

 objExcel.Visible = True
 Set objExcel = Nothing
 
 Exit Sub


Error:
Set objExcel = Nothing
MsgBox ("Error " & Err.Description)
End Sub

Dim n As Integer, n1 As Integer
Dim i As Integer
Dim Dat  As String, ret As String, Er As String
Dim Rut As Integer
Dim objExcel As Excel.Application

Set objExcel = New Excel.Application

On Error GoTo Error
objExcel.Workbooks.Open ("D:\Test.xls") ' открываем какой-то файл Ексель ...

n1 =  9  'Счетчик для Екселя начинаем с 9-й строки (ты можешь с любой)****
For i =  2  To VSFlexGrid1.Rows -  1  'Крутимся в гриде начиная со второй строки до конца 
n1 = n1 +  1  'добавляем по 1
For n =  1  To  9  'Заносим в Ексель в цикле
objExcel.Cells(n1, n).value = VSFlexGrid1.Cell(flexcpText, i, n -  1 )
Next n
Next i
.....
 

objExcel.Cells( 5 ,  7 ).value = "твое значение из какой-то колонке,строке"