Is there a way to number items after I've pasted them into a new tab.
Unfortunately the data is not right next to the items I've pasted.

This pastes the items into Row 3 Column D ... but now I need to number these
items consequetively numbered beginning in Column B3.

Private Sub CommandButton1_Click()
'Application.ScreenUpdating = False
'Application.Calculation = xlCalculationManual
lastRow = Sheets("Input Names").Cells(Rows.Count, "C").End(xlUp).Row
Lastcolumn = Sheets("Input Names").Cells(1,
Columns.Count).End(xlToLeft).Column
With Sheets("Input Names")
.Range(.Cells(3, 3), .Cells(lastRow, Lastcolumn)).Copy
Sheets("Scores").Cells(3, 4)
End With
End Sub

Thanks again