How would I combine a sliding door with a door that interacts with "E"?

How could I use TweenService if it was possible as well. I made a sliding door and a door that open and closes with "E" but I cant seem to make a door that Slides with E.

For loop? Put below in function

for i = 1, doorlength do
door.Position = door.Position+0.1
end

Sorry for any syntax errors i am typing from phone