Copy a column till the last row value of another column

[Zink]

Hello Everyone

I have a list of values in column A, starting from A2.
I also have a list of values in column E, also starting E2. This list is longer than the list in column A.

I want to copy and paste(special) values from column E in column F, but only as many rows as there are rows in column A.

Example.
A has 300 Rows. E has 600 Rows.

I want to copy paste E2:E300 (since last row in A is 300) to column F.



So far, I have only able to use the following code snippet to find the last row is column A

Dim LastRow as Long
With ThisWorkbook.Sheets("Sheetname")
    LastRow = .Cells(Rows.Count, 1).End(xlUp).row 
End With

I have tried using other people's examples code from google search, but all of it is becoming a mess, or is going for too many steps to achieve this.
This should be very simple, but since I am complete noob, I am not able to make it work.

Please help, and please give explanations for each step so that I understand and learn.

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub Zink()
   With Sheets("Sheet1")
      With .Range("E2:E" & .Range("A" & Rows.Count).End(xlUp).Row)
         .Offset(, 1).Value = .Value
      End With
   End With
End Sub

 

[Zink]

Works perfectly, thanks a lot :D

 

[Fluff]

You're welcome & thanks for the feedback.