Macro confirmar fila no vacia y buscar dato

[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.