Adriel Ortiz Mangia respondió:
[Hola Valora la respuesta para finalizar Va la macro Sub copia() Set h1 = Sheets("Data") Set h2 = Sheets("FRS") ' u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If h1.Cells(i, "B") = "FRS" Then...