Makro İle Verileri Düzenleme ve Database Oluşturma

[mahirc]

Office 2010'da var olan bir dosyada bazı veriler bulunmakta ve makro kaydet ile eklediğim bir makro ile data isimli bir sayfaya aktarırken aşağıdaki makrodaki bilgileri esas alarak bir başka sayfaya kopyalamaktadır. Buna ek olarak istediğim tek bir şey vardır, verinin ilk girişinde problem yok ama makroyu yeniden çalıştırdığımda aynı veri var ise yazmasın yok ise bir alt satıra geçerek data dosyasına eklemeye devam etmesini istiyorum.Bu kodaki bilgilerinizi ile yardımcı olacağınızı düşünerek teşekkür eder iyi çalışmalar dilerim.

Sub OtomobilCSI()
'
' OtomobilCSI Makro
'

'
Sheets("2").Select
ActiveCell.FormulaR1C1 = "='1'!RC[1]"
Range("C2").Select
ActiveCell.FormulaR1C1 = "='1'!RC[-1]"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=TEXT('1'!R[-1]C[-1],""aaaa"")"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=TEXT('1'!R[-1]C[-2],""yyyy"")"
Range("F2").Select
ActiveCell.FormulaR1C1 = "='1'!R[1]C[-3]"
Range("G2").Select
ActiveCell.FormulaR1C1 = "='1'!R[1]C[-3]"
Range("H2").Select
ActiveCell.FormulaR1C1 = "='1'!R[2]C[-5]"
Range("I2").Select
ActiveCell.FormulaR1C1 = "='1'!R[2]C[-5]"
Range("J2").Select
ActiveCell.FormulaR1C1 = "='1'!R[23]C[-7]"
Range("K2").Select
ActiveCell.FormulaR1C1 = "='1'!R[23]C[-7]"
Range("L2").Select
ActiveCell.FormulaR1C1 = "='1'!R[21]C[-9]"
Range("M2").Select
ActiveCell.FormulaR1C1 = "='1'!R[21]C[-9]"
Range("N2").Select
ActiveCell.FormulaR1C1 = "='1'!R[20]C[-11]"
Range("O2").Select
ActiveCell.FormulaR1C1 = "='1'!R[20]C[-11]"
Range("P2").Select
ActiveCell.FormulaR1C1 = "='1'!R[27]C[-13]"
Range("Q2").Select
ActiveCell.FormulaR1C1 = "='1'!R[27]C[-13]"
Range("R2").Select
ActiveCell.FormulaR1C1 = "='1'!R[18]C[-15]"
Range("S2").Select
ActiveCell.FormulaR1C1 = "='1'!R[18]C[-15]"
Range("T2").Select
ActiveCell.FormulaR1C1 = "='1'!R[29]C[-17]"
Range("U2").Select
ActiveCell.FormulaR1C1 = "='1'!R[29]C[-17]"
Range("U2").Select
Selection.End(xlToLeft).Select
Range("A2").Select
Sheets("1").Select
End Sub