Shift Cursor And Indeks

Nama Kelompok :

      1. ARI PRASETYO (06)
      2.AHMAD SYAFIQ (01)
      3.ANDRYAN ANGGA D (03)
      4.ALUH AJI SAPUTRO (02)
      5.BINTANG CAHYA P (09)

If ActiveCell.Column > 1 And ActiveCell.Row > 1 Then

ActiveCell.Offset(0, -1).Select
ActiveCell.Interior.ColorIndex = ActiveCell.Column
Else
If ActiveCell.Row > 1 Then
ActiveCell.Offset(-1, 0).Select
ActiveCell.Interior.ColorIndex = ActiveCell.Row
Else
ActiveCell.Offset(0, 1).Select
ActiveCell.Interior.ColorIndex = ActiveCell.Column
End If
End If