Removing Select statement to run code faster

[wincross]

Hi,

I have few queries,

• I want to repeat this code for all sheets but without select statement it doesn't work, Is there any way to remove select statement here?

For j = 1 To 4
Sheets(j).Select
Range("AB29:AG" & Sheets(j).Cells(Rows.Count, "AG").End(xlUp).Row).ClearContents
next i

• I would like to couple the last 2 statements in to one. please help.

Range("AF29:AG29").Copy
Range("AF29:AG" & Sheets(j).Cells(Rows.Count, "AB").End(xlUp).Row).Select
ActiveSheet.Paste

• Please see the attached file. I want to find the first row which contains 0 value. In this case it should return '5'.