Autofill Until is Empty

Hi Holger,
You're right, this did not work perfectly unfortunantely
I have run across more trouble. Without having to build several macros and have them called for each step I have the following macro. Basically Columns E, F, G H and I will all be autofilled (with different inputs) the autofill should autofill until column A is empty for all. The below code works fine if I have data that goes past cell A2 as soon as I have data that finishes at A2 the macro errors with '1004 instead of exiting the sub.

Sub AAA()

Dim lastrow As Long
lastrow = Worksheets("07DS").Range("A" & Rows.Count).End(xlUp).Row

With Worksheets("07DS").Range("E2")
If .Value <> "" Then
.AutoFill Destination:=Range("E2:E" & lastrow&), Type:=xlFillCopy

With Worksheets("07DS").Range("F2")
.AutoFill Destination:=Range("F2:F" & lastrow&), Type:=xlFillCopy

With Worksheets("07DS").Range("G2")
.AutoFill Destination:=Range("G2:G" & lastrow&), Type:=xlFillCopy

With Worksheets("07DS").Range("H2")
.AutoFill Destination:=Range("H2:H" & lastrow&), Type:=xlFillCopy

With Worksheets("07DS").Range("I2")
.AutoFill Destination:=Range("I2:I" & lastrow&), Type:=xlFillCopy
    

Exit Sub
End With
End With
End With
End With
End If
End With
End Sub

Any suggestions?