Try

=LEFT(A1,3)&ROW(A1)&"A"

VBA Noob