Autofill Until is Empty

Help!!

Here is my code

Sub AAA()
Dim lastrow As Long
     
    lastrow = Worksheets("07DS").Range("A2").End(xlDown).Row
    With Worksheets("07DS").Range("E2")
    
    If Range("B2") = "" Then
    Exit Sub
    Else
            .AutoFill Destination:=Range("E2:E" & lastrow&), Type:=xlFillCopy
End If
End With
End Sub

What is meant to happen is that Column E is autofilled until column A is empty! However this is not working column E is Autofilling until the end of the sheet.

Any help with where I went wrong in my code? PS column A will have a dynamic list, that is each time it could have 1 or 100 rows depending thats why I need E to autofill until A is blank.

Thank you