Instead of showing us code which doesn't do what you want and expect us to change it to do what you want (which we don't know), why don't you just explain what you want it to do?
A guess that you want it to operate on the sheet Sheet1, try the following (again a guess) with that sheet being the active sheet when you run it:
Sub blah()
For Each are In Cells.SpecialCells(xlCellTypeConstants, 23).Areas
If are.Rows.Count > 1 And are.Columns.Count > 3 Then
Set myCell = are.Cells(are.Rows.Count, 3).Offset(2)
If myCell.Offset(1).Value = "" And myCell.Value = "" Then
myCell.Value = "a"
End If
End If
Next are
or the same thing:
Sub blah2()
For Each are In Cells.SpecialCells(xlCellTypeConstants, 23).Areas
If are.Rows.Count > 1 And are.Columns.Count > 3 Then
With are.Cells(are.Rows.Count, 3).Offset(2)
If .Offset(1).Value = "" And .Value = "" Then .Value = "a"
End With
End If
Next are
End Sub