YeniFirma = IIf(Application.CountIf(Columns(1), Firma) > 0, 1, 0)
burdaki Kod:
Columns(1)
Columns(2)
yazınız.SonSatir = WorksheetFunction.CountA(.Range("A:A")) + 1
yerinede SonSatir = .Range("A" & Rows.Count).End(3).Row + 1
bunu ekleyin.