Creating a Marco to Replace a Specific Number with a Specific Letter in a Column

It could be wise to use:

Sub tgr_snb()
 For i = 1 To 4
   Columns(3).resize(,2).Replace i, mid("ACGT",i,1),xlwhole
 Next
End Sub