Visual Basic para Aplicaciones - poner datos en la siguiente columna vacia

Buenas tardes foreros: estoy intentando rellenar una hoja con los datos de del formulario que suma por año y mes, en la columna B datos del primer año , al volver a mirar los datos del siguiente año debería grabarlos en la columna c , he buscado varias formulas por Internet y no me funcionan


'---------------No Funciona nada de esto -------------------------
'Col = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
'Do While Application.CountA(ActiveSheet.Columns(Col)) = 0 And Col <> 0
' Col = Col + 1
'Loop
'-----------------------------------------------------------------------------
'Col = Sheets(“Sheet6”).Cells(1, Columns.Count).End(xlToLeft).Column
'---------------------------------------------------------------------------

El siguiente código es el que funciona pero siempre me lo pone en la columna B

Dim Col&
Col = Range("B4").End(xlToLeft).Column + 1

Hoja6.Cells(4, Col) = Usf_ComoVamos.TextBox1 'Año
Hoja6.Cells(5, Col).Value = CDbl(Usf_ComoVamos.F1) 'Enero
Hoja6.Cells(6, Col).Value = CDbl(Usf_ComoVamos.F2) 'Febrero
Hoja6.Cells(7, Col).Value = CDbl(Usf_ComoVamos.F3) 'Marzo
Hoja6.Cells(8, Col).Value = CDbl(Usf_ComoVamos.F4) 'abril
Hoja6.Cells(9, Col).Value = CDbl(Usf_ComoVamos.F5) 'mayo
Hoja6.Cells(10, Col).Value = CDbl(Usf_ComoVamos.F6) 'junio
Hoja6.Cells(11, Col).Value = CDbl(Usf_ComoVamos.F7) 'julio
Hoja6.Cells(12, Col).Value = CDbl(Usf_ComoVamos.F8) 'agosto
Hoja6.Cells(13, Col).Value = CDbl(Usf_ComoVamos.F9) 'septiembre
Hoja6.Cells(14, Col).Value = CDbl(Usf_ComoVamos.F10) 'octubre
Hoja6.Cells(15, Col).Value = CDbl(Usf_ComoVamos.F11) 'noviembre
Hoja6.Cells(16, Col).Value = CDbl(Usf_ComoVamos.F12) 'diciembre
Hoja6.Cells(17, Col).Value = CDbl(Usf_ComoVamos.F13) 'Total

(Col = Range("B4").End(xlToLeft).Column + 1 )en teoria esta deberia de servir pasar de la ocupada a la siguiente (la que toque4)

Gracias por vuestra ayuda

• Gastos-anuales.rar(26,3 KB)

Buenas tardes, Ya lo he resuelto a base de ir provando cosas que he ido viendo en internet, la solución cambiar el B4 por (4, Columns.Count)
Y funciona