Help with this macro

[Minaru]

Thanks in advance for the help.

I need to give a batch name to an amount, this name will not change between months it will always be the same set names for each batch but I can only give 1 name per amount shown per day in a month; that said this is how it works

date          $      Batch name

01/01     $10.00     7A
01/02     $20.00     7B
01/03     
01/04     $15.00     7C
01/05     
01/06     $40.00     7D
etc

So what I want is a macro that does the batch names automatically as I input the information on the $ cell. What I started doing was something along the lines of this.

MyArray = Array("7A", "7B", "7C", "7D", "7E", "7F", "7G", _
  "7H", "7I", "7J", "7K", "7L", "7M", "7N", "7O", "7P", "7Q", _
  "7R", "7S", "7T", "7U", "7V", "7W", "7X", "7Y", "7Z")
  
For I = 1 To Cells(Rows.Count, 2).End(xlUp).Row
    If Cells(I, 2).Value <> "" Then
        Cells(I, 1).Value = MyArray(I - 1)
    End If
Next I

But the problem is that I do not know how to make my array to choose the following batch name not the I value one.

Thanks

 

[Andrew Poulsom]

Can't you just use a formula?

=IF(B2,7&CHAR(65+COUNT(B$1:B1)),"")