Tuph,

I often struggle with macros myself but this may work for you... Make sure to change the ranges $A$1:$L$22 to accommodate your full range of numbers. 

 Sub SMS()
'
' SMS Macro
' list of SMS messages to non-Company phones


'
    Range("C1").Select
    ActiveSheet.Range("$A$1:$L$22").AutoFilter Field:=3, Criteria1:="=*SMS", _
        Operator:=xlAnd
    Range("G1").Select
    ActiveSheet.Range("$A$1:$L$22").AutoFilter Field:=7, Criteria1:=Array( _
        "phone # 1", "phone # 2", "phone # 3", "phone # 4", "phone # 5", "phone # 6"), _
        Operator:=xlFilterValues
End Sub
Hope it helps.