For n As Integer = 2 To ra.Rows.Count
If ws.cells(n,2).Text <> 15 Then Dim fhdh As String = ws.cells(n,5).Text