Modified "Store_Referance_Last_Empty_Row" sub from website download. I changed the input statement to Selection.PasteSpecial for pasteing values. Bottom line is it ran perfectly on downloaded sheet. I then created it in a new workbook. New workbook version generates "Run-Time Error '1004': To do this, all merged cells need to be the same size.". Notes: Verified all columns (cells) are formatted the same and not part of any Merged area (however, Sheet does have merged cells elsewhere). Any suggestions work arounds to explore to correct this? Original file download "Find the Next Empty Row in Excel using VBA Macros" on TeachExcel.com
Sub NextTurn()
' Original from TeachExcel.com (Don)
' Store the cell reference for use latter in the macro
' Variable to hold the range reference
' Select the Next Empty Cell
' Select a Range of Cells for copying - DAK
' Copy values in selected Cells - DAK
' Paste values in the Next Empty Cells - DAK
' Blanks Speed Selection Input - DAK
Dim nextEmptyCell As Range 'Dimenisions varable "nextEmptyCell"
Range("AN1:AS1").Select 'Selects data in cells AN1:AS1
Selection.Copy 'Copies data as selection
Set nextEmptyCell = Range("A" & Rows.Count).End(xlUp).Offset(1)
nextEmptyCell.Select 'Selects next empty cell
Worksheets("TurnControl").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'Pastes value into cells
Range("W17:Y34").Select 'Selects Speed Selection Input
Selection.ClearContents 'Blanks contents
Range("AO2:AS3").Select 'Cursor rest
End Sub