در خواست راهنمائی در تغییر Range

[Nima]

با سلام می خواستم ماکرو زیر رو تغییر بدم طوریکه به جای رنج فعلی رنج تا اخـرین سلول که پر هستش انتخاب بشه لطفا راهنمائی بفرمائید:

Private Sub CommandButton1_Click()
'
' Dup_Remov Macro
'

'
    ActiveSheet.Range("$A$1:$R$30000").RemoveDuplicates Columns:=1, Header:= _
        xlYes
End Sub 

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.