REMOVING DATA BASED ON OTHER CELL INFORMATION

[S Himmelrich]

I've created the following macro that removes data based on ofther
cell information. This is similar to duplicate row code, but I'm
looking to define which columns I evaluate. Currently, this macro
looks at just column A or 1. I need it to look at column A, C, F &
G. My question is more syntax based I believe as I'm at a beginner
level in creating VB/Macro code; otherwise this is working as needed
-
can anyone assist on the range on this one?
'Removing Dupicates
Dim rng As Range
Dim i As Integer
Set rng = Range(Cells(1, 1), Cells(1, 1).End(xlDown))
For i = rng.Rows(rng.Rows.Count).Row To rng.Row + 1 Step -1
If Cells(i, 1).Value = Cells(i - 1, 1) Then
Cells(i, 6).ClearContents
Cells(i, 7).ClearContents
Cells(i, 8).ClearContents
Cells(i, 9).ClearContents
End If
Next
SAMPLE INPUT:
Column A Column B Column C Column D Column E Column F Column G Column
H Column I
04531 861134 0 0 0 0.00
04531 861146 0 0 0 0.00
04578 861022 Ganesh 132884 32 67.55555556 2592 5,472.00
045102 861134 Robin Uffer 137308 19,195.00 2 4.222222222 162 342.00
045102 861146 19,195.00 0 0 0 0.00
045102 861086 Peter Donald 134932 10,611.00 1 2.111111111 81 171.00
045102 861086 Peter Donald 134932 21,278.00 1 2.111111111 81 171.00

SAMPLE OUTPUT AFTER MACRO HAS RUN:
Column A Column B Column C Column D Column E Column F Column G Column
H Column I
04531 861134 0 0 0 0.00
04531 861146 CLEARED CLEARED CLEARED CLEARED
04578 861022 Ganesh 132884 32 67.55555556 2592 5,472.00
045102 861134 Robin Uffer 137308 19,195.00 2 4.222222222 162 342.00
045102 861146 19,195.00 0 0 0 0.00
045102 861086 Peter Donald 134932 10,611.00 1 2.111111111 81 171.00
045102 861086 Peter Donald 134932 21,278.00 CLEARED CLEARED CLEARED
CLEARED