Soru object doesn't support property or method hatası

If Range("O1") >= "1" Then
ActiveSheet.Range("$A$3:$L$15555").AutoFilter Field:=4, Criteria1:= _
"MEET & ASSIST"
ActiveSheet.Range("$A$3:$L$15555").AutoFilter Field:=12, Criteria1:="T1"
Range(Range("M3")).Copy
Sheets("FD T1").Select
Range("A1").End(xlDown).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("F3").Select
ActiveWorkbook.Worksheets("FD T1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("FD T1").Sort.SortFields.Add2 Key:=Range( _
"F4:F10000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("FD T1").Sort
.SetRange Range("A3:M10000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Genişletmek için tıkla...