I have received a code, however when I get to line 4, it doesn't actually filter out the value that I need it to. Everything else is working correctly. I have not included the Delete_Visible_Cells sub as I just need the filter to actually filter out the value I need.
Application.ScreenUpdating = False
Dim LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.count
ActiveSheet.Range("L1").CurrentRegion.AutoFilter Field:=1, Criteria1:="6.1.1"
Call Delete_Visible_Cells
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True