Sub test()
StateName = "IOWA"
fileAliasName = "CRNA"
    With Range("a1").CurrentRegion
        If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
        rw = .Rows.Count
        .AutoFilter Field:=2, Criteria1:=StateName
        .AutoFilter Field:=3, Criteria1:=fileAliasName
        iCount = .Offset(1, 0).SpecialCells(xlCellTypeVisible).Areas(1).Rows(1).Row
    End With
End Sub