Visual Basic - Datagrid->selecionar columnas y copiarlas?

Hola todos;

Mi consulta es la siguiente: existen algún comando para que pueda habilitar hacer copy de la columnas seleccianadas en mi data grid, para luego pegarlas en excel. (Deseo probar con esa opción a ver el tiempo de respuesta)

Mi problema original es el tiempo de respuesta, al exportar directamente del MSdataGrid a XLS, (15 min aproximado) 2830 registros.

Lo he realizado de 2 formas 1:

1)MSdataGrid -> xls (15 minutos aproximado)

For ContX = 0 To TotalRegistros - 1
For ContY = 0 To 31
With MiExcel.ActiveSheet
DataGrid1.Row = ContX
DataGrid1.Col = ContY
.Cells(ContX + 1, ContY + 1) = DataGrid1.Text
End With
Next
Next

2) Recordser -> XLS ( tiempo de respuesta 4 minutos )

Do While Not rtTabla.EOF

With MiExcel.ActiveSheet
.Cells(ContX + 1, 1) = rtTabla("cliente")
.Cells(ContX + 1, 2) = rtTabla("edad")
etc...
End With

rtTabla.MoveNext

loop

La segunda opción tarda un poco menos, pero al final me presenta un error de OverFlow, y además no conserva el formato de los datos en el XLS.

Gracias.