Flexgrid insertar una columna con datos de otro flexgrid

Buenas noches

Tengo el siguiente problema, quisiera copiar la columna 1 del flexgrid1, y pasarla al flexgrid2, pero que busque la ultima columna vacía o en su caso que inserte una nueva columna con los datos, es decir que cada vez que pinche el botón pasar datos, que recorra el flexgrid 2 columna por columna hasta encontrar una vacía o en caso insertar una nueva, los datos de la columna 1 son variables el numero de filas

He estado intentando crear un código pero no me hace lo que necesito, este es el código

Private Sub Command2_Click()
Dim i As Integer
Dim strdatos As Double
For i = 1 To FlexGrid1.Rows - 1
strdatos = FlexGrid1.TextMatrix(i, 1)
FlexGrid2.AddItem strdatos
Next
End Sub

Lo que hace es que me agrega los datos a partir de la ultima fila vacía, y lo que necesito es que los ponga pero en la ultima columna vacía.

Agradezco de antemano sus comentarios y ayuda.

Saludos