Hi
Finally found the numbers in column C.
Try
Sub aaa()
Range("H:K").Insert shift:=xlToRight
Range("H1:K1").Value = Array("Enc/Pre-Enc", "PROJECTED", "BUDGET", "Expensed")
For Each ce In Range("C2", Range("C2").End(xlDown))
Select Case UCase(ce.Value)
Case "ENC/PRE-ENC"
ce.Offset(0, 5).Value = ce.Offset(0, 4).Value
Case "PROJECTED"
ce.Offset(0, 6).Value = ce.Offset(0, 4).Value
Case "BUDGET"
ce.Offset(0, 7).Value = ce.Offset(0, 4).Value
Case Else
ce.Offset(0, 8).Value = ce.Offset(0, 4).Value
ce.Value = Choose(ce.Value, "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
End Select
Next ce
Columns("H:K").AutoFit
End Sub
rylo
Bookmarks