You're giving us the minimum information possible. What are you trying to do? What are the variables? Is this line a typo?
Sheets("sheet3").Range("B1").Offset(Row, 0).Value = Za = a + 1