Adriel Ortiz Mangia respondió:
[Hola Te paso la macro. Para finalizar hay 2 opciones Excelente o bueno saludos! Sub copiar() ' '***Por Adriel Ortiz Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' If h1.Range("B7") = "" Then MsgBox "Ingrese dato a buscar" h1.Range("B7").Select...