Was ist hier falsch?

Sub Data2()
Dim rng As Range
Dim lngE As Long 'für letzte gefüllte Zeile
Dim lngRow As Long 'Zeilenzähler in "OH"
lngRow = 1
'Letzte gefüllte Zelle in Spalte "C" ermitteln
lngE = IIf(IsEmpty(Sheets("DATA2").Range("C65536")), Sheets("DATA2").Range("C65536").End(xlUp).Row, 65536)
For Each rng In Sheets("Data2").Range("A:A" & lngE)
If rng <> "" Then
'ATR'
Sheets("Data2").Cells(lngRow, 2) = WorksheetFunction.Max(rng.Offset(0, 5), rng.Offset(0, 6), rng.Offset(0, 7))
'Zeilenzähler erhöhen
lngRow = lngRow + 1
End If
Next
End Sub