Resize Range

why does this not work

Sub Ave_Data()
Dim NumRows As Double
Dim Avedata As Range
Set Avedata = Range("A81:M1515")

NumRows = Range("Avedata").Rows.Count
Range("Avedata").Resize(RowSize:=NumRows).Select


End Sub