Cycle Through Table Data Using a Command Button

Sub a()
LR = Cells(Rows.Count, "A").End(xlUp).Row + 1
Cells(LR, 1).Value = Chr(96 + LR)
Cells(LR, 2).Value = LR
End Sub