Me Again

Ok... I have a worksheet change event that fires a username and date when a range of cells have been amended.

What I would like it to do is only to work when the row is populated.

So for example if row 1:5 is populated then the worksheet change event kicks in if row 6:10 is blank then the worksheet change event is disabled.

I'm trying to use:

Dim sht As Worksheet
Set sht = ThisWorkbook.Worksheets("Sheet1")
Dim LastRow As Long
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
With very little success but that could be because I don't know where to add it within the Worksheet_Change(ByVal Target As Range) code?

I've tried this with the help from Google:

If Not Intersect(Target, Target.sht.Range("A2:Z" & LastRow)) Is Nothing Then
    Application.EnableEvents = False
But I get a runtime error 438. Object doesn't support this property or method

Any ideas?