Recorrer celdas de una columna

Podrías tener una variable Global que te indique por donde estas y luego algo del estilo
Sub cmdActualizar ()
 TextBox1.Text = Cells(dondeEstoy + 4,1)
 TextBox1.Text = Cells(dondeEstoy + 4,1) 'A
 TextBox2.Text = Cells(dondeEstoy + 4,2) 'B
 TextBox3.Text = Cells(dondeEstoy + 4,3) 'C
 TextBox4.Text = Cells(dondeEstoy + 4,4) 'F
 dondeEstoy = dondeEstoy + 4
End Sub
En el ejemplo que te doy, la variable dondeEstoy deberías declararla Global y es la que llevaría la cuenta en que fila estas...

Hola ... gracias por responder... agregue el código pero me muestra la los datos de la posición 4... lo que quiero hacer es un botón llamado "siguiente" que al dar click me muestre los siguientes datos... ya que los datos de la hoja llegan hasta la celdas 50
Gracias

Aclarame como tenés los datos pues no debería, en teoría este código te muestra la información 4 celdas más abajo de tu última actualización.

Te mando el código que tengo en el botón, me muestra los 2 primeros, pero no los datos siguientes
en los textbox 1, 2 y 3 muestra los datos de la A2, B2 Y C2... y los textbox 4,5 y 6 los datos A3, B3 Y C3
Private Sub siguiente_Click()
Sheets(1).Select
dato = Range("A2")
rango = "A2:A50"
Set midato = ActiveSheet.Range(rango).Find(dato, LookIn:=xlValues, LookAt:=xlWhole)
ubica = midato.Address(False, False)
TextBox1.Value = Range(ubica).Offset(0, 0).Value
TextBox2.Value = Range(ubica).Offset(0, 1).Value
TextBox3.Value = Range(ubica).Offset(0, 2).Value
TextBox4.Value = Range(ubica).Offset(1, 0).Value
TextBox5.Value = Range(ubica).Offset(1, 1).Value
TextBox6.Value = Range(ubica).Offset(1, 2).Value
end sub