I want to select a range starting with active cell to the last row and copy
it... but first I have to clear the copy range starting in A3... then paste
in A3. can someone help?

first = ActiveCell.Address
col = ActiveCell.Column
lastrow = ActiveSheet.Cells(Rows.Count, col).End(xlUp).Row
lst = "r" & lastrow & "c" & col

Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents


Range(first, lst).Copy
Range("a3").Select
Selection.PasteSpecial Paste:=xlValue