FiLas a Un DataTable

Cómo agregar un array de filas a un datatable en una sola línea de código? Pues yo quería eso pero no encontré.
La situación es que obtuve un array de filas que pertenece a un datatable. Este array se lo quiero agregar a otro datatable. Si se lo hacemos por la porpiedad "ADD", sale un mensaje de que no se puede hacer ya que esas filas pertenecen a otro datatable.
Asi que para ello, se usa el "IMPORTROW"

De esta manera:
dr es un DataRow() de un datatable1 con las filas.
creamos otro datatable2 y le hacemos un for al dr

For d As Integer = 0 To dr.Count - 1
Dim row As DataRow = datatable2 .NewRow
row = dr(d)
datatable2 .ImportRow(row)
Next