Mükerrer Hücreyi Boşalt

[darkgod]

Merhaba

Bu sitede bulduğum bir kodu değiştirmek istiyorum veya yeni bir kod'da olabilir.

A sütunun'da alt alta mükerrer yazılar var A sütunun'da mükerrer arayıp C-D-E-F-G-H hücrelerinin içini boşaltmak istiyorum.

Aşağıda'ki kod işime yarıyor fakat bir türlü belirlediğim hücreleri sildirmeyi başaramadım.

Sub hucre_sil()
Option Explicit
Sub mükerrer_olanları_temizle_1967()
'Konu       :   Mükerrer Olanları Temizle
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim SAT As Long, SAY As Long
Application.ScreenUpdating = False
With WorksheetFunction
For SAT = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If .CountIf(Range("A1:A" & SAT), Cells(SAT, "A")) > 1 Then
SAY = SAY + 1
Cells(SAT, "A").ClearContents
End If: Next: End With
Application.ScreenUpdating = True
MsgBox SAY & " Sayıda Mükerrer Temizlendi" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"

End Sub

Sanıyorum Cells(SAT, "A").ClearContents şu kısım'da A harfi olan yeri değiştirmek gerekiyor oraya hangi sütun adını yazarsam hücreyi siliyor ama ben A sütunu kontrollü belirlediğim hücreleri boşaltmayı beceremedim.

Her ihtimale karşı örnek dosya yükledim
http://s6.dosya.tc/server2/51e927/MUKERRER-ISE-HUCRE-BOSALT.xlsx.html

Teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

RANGE("C" & SAT & ":H" & SAT).ClearContents

. . .