Hey coders got a (hopefully) easy one VBA

[Assassin]

Sub moveyesdata()
'
' moveyesdata Macro
'
' Keyboard Shortcut: Ctrl+q
'

Columns("A:R").Select
Selection.AutoFilter
Range("C1").Select
ActiveSheet.Range("$A$1:$C$10000").AutoFilter Field:=1, Criteria1:="XX"
Range("A1:C1000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
ActiveSheet.Next.Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
ActiveSheet.Previous.Select
Range("A1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A1").Select
MsgBox "Completed"
End Sub

How would I change this to add in that in Field 18 we need less than 100 (the number)?

Criteria1 is already filled just edited out for obvious reasons.

[Locust]

ohgod i haven't done vb for years. I have too many projects to code to take a look at this right now :/.

[Assassin]

I know it should be easy right? Stupid simplistic code :P

[Locust]

i finished my project faster than i predicted tonight. If you could format exactly the way it looks I can take a look at it. Also, what are you trying to do with it?

[Patmonster]

If you format it and/or add a screen shot I'll look into it as well. My laptop just crashed and I had to start from scratch soooo I won't be able to toy with it, but I have no problem giving suggestions.

[Assassin]

Lol that's a VBA script for a macro in Excel. It finds something I specify and copies it from one sheet to the next (filtering ) So I'm trying to add a way to make it filter another thing at the same time...say a word and a number. From field 18. Only problem is when I put Field:=18, criteria1:"XX" It breaks at Field:18. Idk why. I just need to filter two things out.