Dynamic Range

Hi guys,

I am rather new to all of this and would appreciate some help.

I am trying to create a dynamic range, but just cant get it right:

I want to get the autofill feature for C column stop once it has reached the same number of row entries in column A.

********************************************************

Sub TestDynamicRange()
'
' TestDynamicRange Macro
' TestDynamicRange
'

'
    Range("A1:B6").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Paste
    Range("C1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Date"
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C6"), Type:=xlFillDefault
    Range("C2:C6").Select
End Sub

**********************************************************

Can anyone help me please?

Thanks,

Matt