Kod:
With syfFirmalar
.Select
.Rows("1:1").Copy .Range("A" & Rows.Count).End(3)(2, 1)
satir = .Range("A" & Rows.Count).End(3).Row
.Rows(satir).Replace What:="Örnek", Replacement:=Firma, LookAt:=xlPart
.Range("A" & Rows.Count).End(3)(2, 1).Select
End With