Alguien se apiade de mi

Esta es la macro pero al correrla la corre en las otras hojas y no en las
que al final lleba TH






Sub out_specth()
'
' out_spec Macro
' Macro recorded 5/4/04 by mfran2
'
l = 8
li = 3
Do While True
Cells(l, 3).Activate
f = Cells(l, 3).Value
If f = "WOVEN" Then
l = l + 1
Else
If f = Empty Then
Sheets("garmenTH").Select
Cells(8, 1).Activate
Sheets("Out SpecTH").Select
Cells(3, 1).Activate
End
Else
Sheets("standarTH").Select
n = 2

Do While True


Cells(n, 1).Activate
If f = Cells(n, 1).Value Then
leng = Cells(n, 2).Value
wid = Cells(n, 3).Value
Sheets("garmentTH").Select
If leng < Cells(l, 11).Value Then
Cells(l, 11).Activate
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
If wid < Cells(l, 13).Value Then
Cells(l, 13).Activate
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
If leng < Cells(l, 11).Value Or wid < Cells(l,
13).Value Then
ActiveCell.EntireRow.Copy
Sheets("Out SpectTH").Select
Cells(li, 1).PasteSpecial Paste:=xlAll
Application.CutCopyMode = False
li = li + 1
End If
Sheets("garmentTH").Select
Cells(l, 11).Activate
Selection.Interior.ColorIndex = xlNone
Cells(l, 13).Activate
Selection.Interior.ColorIndex = xlNone
Exit Do
Else
If Cells(n, 1).Value = Empty Then
Sheets("garmentTH").Select
MsgBox "Cloth Style not found"
Exit Sub
End If
n = n + 1
End If

Loop
End If

Sheets("garmentTH").Select
l = l + 1
End If
Loop
End Sub