Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
const xlUp = -4162
lastRow = ws1.UsedRange.Rows.Count
lastColumn = ws1.UsedRange.Columns.Count
Set rngDataBlock = ws1.Range(ws1.Cells(1,1),ws1.Cells(lastRow,lastColumn))
rngDataBlock.AutoFilter 4,"a",,,False
If ws1.Cells(1,4).Value = "a" Then
ws1.AutoFilter.Range.Delete xlUp
Else
ws1.AutoFilter.Range.Offset(1).Delete xlUp
End If
ws1.AutoFilterMode = False