I figured out something that worked. FF1 is way out of the way of the data in the sheet. If this is a bonehead way to do it, feel free to tell me! hahaha Thanks, you all, for any suggestions.
Dim InCell As Integer Range("FF1").Select ActiveCell.Value = InputBox("Enter the new state abbreviation", "New State Entry") For InCell = 132 To 414 Step 141 Range("FF1").Select Selection.Copy Range("A" & InCell).Select ActiveSheet.Paste Next InCell Application.ScreenUpdating = True