Son eklediğim dosyaya göre gif ekledim ne yaptığıma dair.Normalde alttaki kodlara gerek kalmadan
s3.Range("A7:AJ" & Rows.Count).Clear olarakta ve sade olarak yazılabilirdi.sanıyorum böyle olunca koşullu biçimlendirmelerde silinir.

    s3.Range("A7:AJ" & Rows.Count).UnMerge
    s3.Range("A7:AJ" & Rows.Count).ClearContents
    s3.Range("A7:AJ" & Rows.Count).Interior.ColorIndex = xlNone
    s3.Range("A7:AJ" & Rows.Count).Borders.LineStyle = xlNone