Dynamic Range question

I have recorded this code, but need the range to vary by the number of rows in the worksheet.

How do I rewrite this?

Range("AE2").Select
    Selection.Copy
    Range("AA2:AE2").Select
    Range("AE2").Activate
    Range(Selection, Selection.End(xlDown)).Select
    Range("AE2:AE383").Select
    ActiveSheet.Paste