Another way to drag or fill ranges

Another way to drag or fill ranges

Sub drag()



    Dim lastRow As Long
    lastRow = Sheets("SUNPIV").Range("d" & Rows.Count).End(xlUp).row
    Sheets("SUNPIV").Range("e2").AutoFill Destination:=Range("e2:e" & lastRow)

end sub