Экспорт из DataGrid в Excel - VB

Private Sub Комманда2_Click()
Dim Ex As Object
Dim R, C, j, M(), Z()
C = grdDataGrid.Columns.Count
R = 0
Do
        ReDim Preserve M(C - 1, R)
            DoEvents
            grdDataGrid.Row = R
                For j = 0 To C - 1
                 M(j, R) = grdDataGrid.Columns(j)
                Next j
            R = R + 1
Loop While grdDataGrid.Columns(1) <> Empty
        
        ReDim Z(UBound(M, 2), UBound(M))
        For R = 1 To UBound(M, 2)
            For C = 0 To UBound(M)
                Z(R, C) = M(C, R)
        Next: Next
Set Ex = CreateObject("Excel.Application")
Ex.Workbooks.Open App.Path & "\x.xls"
Ex.Visible = True
With Ex.sheets(1)
    .range(.cells(1, 1), .cells(UBound(M, 2), UBound(M) + 1)) = Z
End With
 
End Sub