Dosya İçeriğine Göre İsim Verme

[isoaltunay]

        Sub Emre()
            Dim i%, isim$, say%
            isim = [B2] & " " & [C2] & " " & [D2]
            For i = 9 To Range("c65536").End(3).Row
                If Cells(i, 3).Value = Range("D2").Value Then
                    say = say + 1
                    If say = Range("C65536").End(3).Row - 8 Then
                        ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & isim & " DAHİLDE.xlsm", _
                        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
                        Exit Sub
                    End If
                        Else
                    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & isim & " HARİÇTE.xlsm", _
                    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
                    Exit Sub
                End If
            Next i
            say = Empty: isim = "": i = Empty
        End Sub

Üstadlar kolay gelsin yardımcı olabilirmisiniz mevcut kodlara ilave dahilde ve hariçte diye excel dosyası oluştururken aynı isimde varsa _1 _2 _3 .... diye oluşturma yapabilirmiyiz?
ikincisi mevcut kodlarda göndermiş olduğum excel sutunlarında örneğin C9 sutünundan C30 sutünuna kadar aynı numara varsa mevcut excel dosyasına dahilde ismini versin farklı ise hariçte ismini versin örn: "ali yılmaz hariçte.xls" birden fazla çıkarsada "ali yılmaz dahilde_1.xls" şeklinde olmasını yapabilir miyiz?
Ayrıca mevcut dosyanın ismini değiştirebilir mi? yani farklı kaydetme yapmadan aynı dosyaya müdahale etmesini istiyorum
Teşekkürler kolay gelsin