lngLastRow = Sheets("RISKS").Range("A65535").End(xlUp).Row Do Until Sheets("RISKS").Range("A" & lngLastRow).Value <> 0 lngLastRow = lngLastRow - 1 Loop 'now lngLastRow contains last non-zero value in column A