Autofill not working properly

[Wissamsaliba]

Hello, I am working on a large data set but recently started receiving smaller quantity of data. I used to use autofill a lot with filtered data but it seems if I have only 1 row of filtered data and use autofill it gives me the old image(I am changing the value inside the cell). Is there a way to write a code that if it counts 1 row to just replace the cells without autofill? below you can find my code that works properly if i have multiple rows but not 1 row.


ActiveSheet.Range("$A$1:$CB$627689").AutoFilter Field:=38, Criteria1:= _
"Max"
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(1, 23).Select
ActiveCell.FormulaR1C1 = "Others"
Range(Selection, "W" & lRow).Select
Selection.FillDown

 

[Wissamsaliba]

If you want i tested some other things and it worked but the autofill is driving me crazy! I tried to add this part of the code that i obtained from you "
.Columns(4).Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlVisible).Value = "Lucky" " but it is giving me an error

this is the full code

 Dim xCount As Long
Dim xCell As range
Application.Volatile
lRow = range("A1").End(xlDown).Row
For Each xCell In range("A1:A" & lRow)
     If (Not xCell.EntireRow.Hidden) And (Not xCell.EntireColumn.Hidden) Then
          xCount = xCount + 1
     End If
Next
   If xCount > 1 Then .Columns(4).Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlVisible).Value = "Lucky"
   Else
   
   End If
   
 End Sub

 

[Peter_SSs]

this is the full code

It cannot be, it does not compile.

Firstly, it does not have a procedure name.
Secondly it has unqualified references like

If xCount > 1 Then .Columns(4).Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlVisible).Value = "Lucky"

Also, you have not provided any sample data to test it against.

I tried to add this part of the code that i obtained from you

The code you posted has no resemblance to the code I suggested earlier.