DataGrid to Excel - VB

Private Sub Command1_Click()
Dim Ex As Object
Dim R, C, j, M(), Z()
C = DataGrid1.Columns.Count
R = 0
Do
        ReDim Preserve M(C - 1, R)
            DoEvents
           DataGrid1.Row = R
                For j = 0 To C - 1
                 M(j, R) = DataGrid1.Columns(j)
                Next j
            R = R + 1
Loop While DataGrid1.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 & "\test.xls"
Ex.Visible = True
With Ex.Sheets(1)
    .Range(.Cells(1, 1), .Cells(UBound(M, 2), UBound(M) + 1)) = Z
End With
End Sub