coger el contenido de un datagrid i meterlo en un datatable

[oscuros]

Wenas, tengo un datagrid que he llenado con varios datatables, me gustaria que cuando ya está lleno del todo o mientras se va llenando, cada valor se vaya metiendo dentro de un datatable diferente.

Adjunto el código para que se vea más claro.

For i = 0 To n 'tamaño dl DTInformes
dgcontadores.Rows.Add(1)
For j = 0 To 5
If j <> 5 Then
dgcontadores.Item(j, i).Value = DTInformes.Rows(i).Item(j)
If j = 4 Then
aux_point_contadores = dgcontadores.Item(j, i).Value
End If
If j = 6 Then
dgcontadores.Item(j, i).Value = DTInformes.Rows(i).Item(j)
End If
Else
aux_contadores = 0
aux_conta = 1
Dim DTR_aux As DataTable = cPoints_aux.Retrieve() 'Aqui lleno el DTContador
dgcontadores.Item(j, i).Value = DTContador.Rows(0).Item(0) & " m³/h "
aux_conta = 0
aux_contadores = 1
End If
Next j

Next i


Todos los if i todo eso no hay que hacerle caso, la idea es basicamente llenar un datatable con diferentes datatables. Es decir con cada valor que añado al datagrid.

Si alguien supiese como puedo hacerlo me sacaria de un apuro jeje

Muchas gracias i Salu2