Autofill not working as required

[excel_n00b]

Hi,

I have a workbook which has data in colums A through E & there are 2 sheets in this workbook. Sheet 2 has all the present IDs for a day wich can vary, what i'm trying to do is copy the IDs from Sheet 2 & paste them to sheet 1 (column F) starting frm F2 and autofill till the end of data determined by column A.
i.e. if i have 10 IDs on Sheet 2 the macro should be able to copy and paste them on Sheet1 starting from F2 and repeat them till it reaches end of data.

Please note : data will vary on a daily basis.


Here is a half working macro that i tried but it doesnt autofill till end of data.

Sub Macro1()
'
' Macro1 Macro
'
'
 
'
Sheets("Sheet2").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Dim Lrow As Long
Lrow = Range("A" & Rows.Count).End(xlUp).Row
Range("F2" & Lrow).FillDown
 
 
End Sub

any help will be highly apreciated.