Value In Col 1 For First Non-zero Value In Cols 2-5?

I need to discern the first row where columns B or C or D or E become non-zero. This is because column A countains dates, and if I subtract one day from the date in the non-zero row I have the date of the analysis I'm examining.

The problem i have is that the code I've put together below gives me the date of the absolute last row in the spreadsheet, "31/12/2015 23:30:00" from row 70129 which isn't that useful. I'm expecting a date in August just gone which is on row 11618.

Code:

Sub test()
Dim lngLastRowU1 As Long
Dim lngLastRowU2 As Long
Dim lngLastRowU3 As Long

[Code]....