Sub Copia() If Range("A2").Value = Range("A1").Value Then Range("b2:s2").Copy Destination:=Range("b1") End If End Sub