For xy = 2 To dernligne19540
If ResWkb.Sheets("19540").Range("J" & xy).Value = 0 And ResWkb.Sheets("19540").Range("K" & xy).Value = 0 And ResWkb.Sheets("19540").Range("L" & xy).Value = 0 Then
Else
Columns("AB:AB").Insert Shift:=xlToRight
ResWkb.Sheets("19540").Cells(2, 28).FormulaR1C1 = _
"=SMALL(RC[-18]:RC[-17]:RC[-16],COUNTIF(RC[-18]:RC[-17]:RC[-16],0)+1)"
ResWkb.Sheets("19540").Range("AB" & xy & "").AutoFill Destination:=ResWkb.Sheets("19540").Range("AB" & xy & ":AB276"), Type:=xlFillDefault
End If
Next xy