View Single Post
 
Old 11-25-2020, 06:20 PM
p45cal's Avatar
p45cal p45cal is offline Windows 10 Office 2019
Expert
 
Join Date: Apr 2014
Posts: 863
p45cal has a brilliant futurep45cal has a brilliant futurep45cal has a brilliant futurep45cal has a brilliant futurep45cal has a brilliant futurep45cal has a brilliant futurep45cal has a brilliant futurep45cal has a brilliant futurep45cal has a brilliant futurep45cal has a brilliant futurep45cal has a brilliant future
Default

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