Skip Action if filter do not have any value

[Jasvindra]

Hi Team,

I am using the below code but the problem is if column is blank(BE). It pastes the value of BF after the last row upto last excel column. is there any way to skip if filter do not have any value as I am using this condition for multiple columns

ActiveSheet.Range("$A2:$CI2").AutoFilter Field:=57, Criteria1:="<>"
Range("BE" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Formula = "=$BF$1"
Range("BE2").Activate

 

[Fluff]

How about

Dim lr As Long
lr = Range("A" & Rows.count).End(xlUp).Row
ActiveSheet.Range("$A2:$CI2").AutoFilter Field:=57, Criteria1:="<>"
On Error Resume Next
Range("BE3:BE" & lr).SpecialCells(xlCellTypeVisible).Formula = "=$BF$1"
On Error GoTo 0