filtre makrosunda hata varmı

[abbasonline]

If Target <> "" Then
sh.Columns("A:CQ").ClearContents
Range("A7").AutoFilter Field:=alan, Criteria1:="=*" & Target & "*"
Range("A7").CurrentRegion.Copy sh.Range("A7")
Range("A7").AutoFilter
sh.Select
sh.Cells.EntireColumn.AutoFit
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End If
Set sh = Nothing



a ile cq arasındaki verileri filitreletmek istiyorum otamatik ancak Q ya kadar alıyor yardımcı olurmusunuz.