Hej hej

Om det är möjligt ska man alltid läsa in i ett svep, och skriva ut i ett svep. Då går operationen väldigt mycket fortare. 

Lade till trim (tar bort mellanslag om någon snubblat på tangenter) och Ucase så man även kan skriva Ja, ja, jA :).

Option Explicit

Sub test()

Dim vnt As Variant

Dim i As Long

Dim rng As Range

    Set rng = Range("B10:T999")

    vnt = rng    

    For i = 1 To UBound(vnt, 1)

        If trim(UCase(vnt(i, 1))) = "JA" Then

            vnt(i, 6) = "Konfidentiell"

            vnt(i, 18) = "Konfidentiell"

            vnt(i, 19) = "Konfidentiell"

        End If

    Next i

    rng = vnt

End Sub