Excel - tango44

Hola amigos: Mi nombre es Angel y solo soy un aficionado a excel que pasa los ratos libres.
Mi consulta es la siguiente:
En una hoja de excel introduzco datos para que me los ponga en otra hoja de forma ordenada y siempre uno debajo del otro,esto ya me fuciona pero solo consigo hacerlo partiendo de la casilla A1. la orden que uso es esta
Linea_libre = WorksheetFunction.CountA(Range("A:A")) + 1
Linea_libre me recoge la celda Range("A:A") +1 Y no me deja celdas vacias .Esto es perfecto pero aunque cambie la "A" por cualquier otra letra nunca consigo que me lo ponga en la columna "C" .Alguien sabe que es lo que estoy haciendo mal.

Gracias por dedicarme vuestro tiempo.

Mira si es lo que quieres:

Sub libre()
Linea_libre = WorksheetFunction.CountA(Range("B:B")) + 1
Range("C2") = Linea_libre
End Sub

Esta mira que linea es la primera libre por la columna B y lo coloca en C2

Gracias Luis Fernando por dedicarme tu tiempo pero no me ha funcionado o no lo he sabido hacer funcionar.