макрос поиск последней незаполненной строки

[IgorGO]

и на последок расскажите мне как по скриншоту определить какие колонками там отображены? видно только что их 6)))
все получилось???

[Uralmaster]

а вот так нормально пошло

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For i = 8 To 500
 If WorksheetFunction.CountA(Range(Cells(i, 2), Cells(i, 7))) < 6 Then
 Range(Cells(i, 2), Cells(i, 7)).Interior.ColorIndex = 35
 Exit For
 Else
 Range(Cells(i, 2), Cells(i, 7)).Interior.ColorIndex = xlNone
 End If
Next
Application.EnableEvents = True
End Sub

выделенный диапазон - светло зеленый
xlNone - работает