AutoFill Down To Adjacent Columns Last Used Row

I have got 5 columns. What i intend to do is to loop to the last data cell in column d,e and autofill it down from there till the last row in column a,b,c. What my code does now is to autofill the entire column c,d from the 1st cell and not from the last data entry cell.

Dim r As Range
Dim lRow As Long
lRow = WorksheetFunction.Max(Range("A65536").End(xlUp).Row, _
Range("B65536").End(xlUp).Row, Range("C65536").End(xlUp).Row)
Set r = Range("d1:e1")
r.AutoFill Range("D1:E" & lRow)

I had searched and tried dozens of variations but just can't get it right.