Macro confirmar fila no vacia y buscar dato

[zapiens]

Hola.

Estoy tratando de facilitarme la vida con una macro, pero no logro encontrar las funciones.

Lo que quiero es, confirmar en fila 1 que no este vacia copiar la primer celda y pegarla en otra hoja2 A1 (ya que la cantidad de filas de datos varia a diario) luego copiar R1 y pegarla en hoja 2 A2, copiar S1 y pegar hoja2 A3.. etc..
Una vez terminada (el numero de columnas siempre es el mismo, sin importar el numero de filas) checar que A2 no este vacia, y repetir el copiado y pegado, pero ahora de la fila 2.

Se que puedo hacerlo grabando la macro, pero al no saber cuantas filas hay, estoy seguro que hay una funcion que corrobora la fila siguiente.

Gracias.

[uzziber]

Algunos usarán For-Next...
Otros usarán Do-While...
Cuestión de entender como funcionan estos comandos...
Saludos...

[mrocf]

De acuerdo a lo que describes, intenta con:

Código PHP:

  Sub Macro1()
Dim Rng As Range, i As Long
With Sheets("Hoja1")
  If .[a1] = Empty Then Exit Sub
  i = .[a65536].End(xlUp).Row
  Set Rng = Union(.Range("a1:a" & i), .Range("r1:r" & i), .Range("s1:s" & i))
  Rng.Copy Sheets("Hoja2").[a65536].End(xlUp).Offset(1)
  Set Rng = Nothing
End With
End Sub 
   

Saludos, Cacho.