Dante Amor respondió:
Te anexo la macro Sub Copiar_Celdas() 'Por.Dante Amor Set h1 = Sheets("TOPCON") 'hoja origen Set h2 = Sheets("DEVOLUCIONES") 'hoja destino ' If h1.Range("B5") = "" Then MsgBox "Falta el dato de la celda B5" Exit Sub End If u2 = h2.Range("A" &...