Dim i As Integer
    Dim zadnjiRed As Single
    
    
    zadnjiRed = 20
    
    AccChars = Array("ÄZ", "Äd", "Ć", "9Ç", "ć", "Ä‘", "9Ý")
    RegChars = Array("", "", "", "š", "", "", "Ž")
    Dim rng As Range
    
    For Each cell In Range("H1:H" & zadnjiRed)
        If cell <> "" Then
            For i = 0 To UBound(AccChars)
                cell.Value = Replace(cell.Value, AccChars(i), RegChars(i))
                
            Next
        End If
    Next cell