Wow. That was hard to understand. Start using punctuations and commas to make yourself better understood.

I understand this as a search and replace routine for all cells containing "0". You want to replace the "0"s with "a"s, right?

Do something like this
Code:
For y = 1 To NoOfRows
  For x = 1 To NoOfColumns
    If ActiveSheet.Cells(x,y)=0 Then ActiveSheet.Cells(x,y)="a"
  Next x
Next y