Visual Basic para Aplicaciones - Poner datos al final de la celda

Estoy haciendo una macro para Excel en donde tomo determinados datos del archivo “A” y los pongo en el archivo “B”, el detalle es que no se como hacerle para ponerlos siempre al final de la columna, ósea en la celda siguiente.
Nota: los datos deben ser consecutivos

Gracias por sus sugerencias.

Deberias primero saber donde esta el final (la ultima escrita) y luego poner la siguiente, te dejo este codigo para que lo adaptes a tus necesidades

Dim i As Integer
Dim final As Integer

For i = 1 To 10000
If datos.Cells(i, 1) = "" Then 'busca el primer blanco en la col A
final = i - 1
Exit For
End If
Next

For i = 1 To final
if 'resto codigo

asignale "i" a la posicion de la fila ... ejemplo

If (ComboBox5) = datos.Cells(i, 1) Then
TextBox65 = datos.Cells(i, 2)
aqui si combobox5 es igual a alguna fila de la columna A, pone en el textbox65 lo que este en la misma fila de la columna B

Espero haberte sido util.

Dim rng As Range
Set rng = Range("B" & Cells.Rows.Count).End(xlUp).Offset(1)
If rng.Row = 2 And IsEmpty(rng.Offset(-1)) Then Set rng = rng.Offset(-1)
rng.Value = "Hi Bekyna!"
Set rng = Nothing

Saludos desde Baires, JuanC