I am very new at writing macros in excel and I'm trying to delete rows within one column that does not contain conditional formatting. If anyone can help, I would greatly appreciate it! I've posted what I have so far.

Sub Wanting()
'
' Wanting Macro
'
' Keyboard Shortcut: Ctrl+w
'
Range("A4").Select
ActiveCell.FormulaR1C1 = _
" <input id=""code"" class=""codebox"" type=""text"" readonly=""readonly"" value=""TOUCHDOWN213"" onFocus=""this.select();showButtons(681226);"" />"
Columns("A:A").Select
Selection.FormatConditions.Add Type:=xlTextString, String:="""code""", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("A11").Select
ActiveCell.FormulaR1C1 = _
" Last Worked: 01/11/13 </span>"
Columns("A:A").Select
Selection.FormatConditions.Add Type:=xlTextString, String:= _
" Last Worked", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("A21").Select
Sub DeleteRows()