Dante Amor respondió:

Te anexo la macro Sub Copiar_Valores() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Origen") Set h2 = Sheets("Destino") ' For i = 5 To h2.Range("A" & Rows.Count).End(xlUp).Row If h2.Cells(i, "A") <> "" Then Set b =...