Sub test1()
'Dim valida As Date
RowCount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
'loop
myarray = Array("g", "h", "i", "j")
For j = 0 To 3
For i = 8 To RowCount
Range(myarray(j) & i).Select
valida = ActiveCell.Value
valida = Left(valida, 2)
If valida = "12" Then
ActiveCell.ClearContents
End If
Next
Next
End Sub