Copiar la ultima columna a otra hoja

Pues entonces como me sitúo en la ultima columna si desconocemos cual es y encima no tengo referencia de que la celda tenga datos... que quieres que comprobemos las 40 filas para saber cual es la ultima celda de cada fila con datos y esa es la que elegimos. Mira a ver si te sirve esto, pero como tengas celdas por medio vacías también tendremos que rompernos a cabeza para localizar alguna referencia:
Sub Comprobar()
Dim mi_celda As String
Dim x As Long
Dim celda As Long
Dim celda1 As Long
Dim mi_columna As Long
Range("A1").Select
mi_celda = ActiveCell.Address
ActiveCell.End(xlToRight).Select
celda = ActiveCell.Column
Range(mi_celda).Offset(1, 0).Select
mi_celda = ActiveCell.Address
ActiveCell.End(xlToRight).Select
celda1 = ActiveCell.Column
If celda > celda1 Then
mi_columna = celda
Else
mi_columna = celda1
End If
For x = 1 To 40
Range(mi_celda).Offset(1, 0).Select
mi_celda = ActiveCell.Address
ActiveCell.End(xlToRight).Select
celda = ActiveCell.Column
If celda > mi_columna Then
mi_columna = celda
Else
mi_columna = mi_columna
End If
Next x
Cells(1, mi_columna).Select
celdaINI = ActiveCell.Address
ActiveCell.Offset(65535, 0).Select
celdaFIN = ActiveCell.Address
Range(celdaINI, celdaFIN).Select
'Ya tenemos seleccionada la ultima columna completa ahora pones tú el codigo de lo que quieres hacer con ella
End Sub