Basewks.Select
Nrow?=?Basewks.UsedRange.Rows.Count
Finalrow?=?Basewks.UsedRange.Rows(Nrow).Row
Ncol?=?Basewks.UsedRange.Columns.Count
Finalcol?=?Basewks.UsedRange.Columns(Ncol).Column
Set?Sourcerange?=?Basewks.Range(Basewks.Cells(1,?1),?Basewks.Cells(Finalrow,?Finalcol))