Option Explicit
Sub Macro1()
Const lngStartRow As Long = 2 'Starting data row number. Change to suit.
Dim rngCell As Range
Dim varMyArray As Variant, _
varArrayItem As Variant
Dim blnMatch As Boolean
varMyArray = Array("1201*", "1205*")
Application.ScreenUpdating = False
For Each rngCell In Range("A" & lngStartRow & ":A" & Range("A" & Rows.Count).End(xlUp).Row)
For Each varArrayItem In varMyArray
If CStr(rngCell) Like CStr(varArrayItem) Then
blnMatch = True
End If
Next varArrayItem
If blnMatch = False Then
Cells(Rows.Count, "C").End(xlUp).Offset(1).Value = rngCell
Else
blnMatch = False 'Reset variable
End If
Next rngCell
Application.ScreenUpdating = True
End Sub