Sub CopySelectedCells() rw = Application.Max(10, Cells(Rows.Count, 1).End(xlUp).Row + 1) Selection.Copy Range("A" & rw) End Sub