copy cell and paste diwn till last row

Hi,

I have recorded macro in which i want to copy cell f2 and paste till last row of coloumn F. in below code selected range showing "F2:F6" which i dont want as data in column F is not fixed.

pls advise modification or short code in below :

Range("F2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*100"
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F6")
Range("F2:F6").Select
Columns("F:F").EntireColumn.AutoFit
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False