sayın ertus35 hangi sütunları alacağına siz karar verirsiniz

Set rng = ActiveWorkbook.ActiveSheet.Range("A" & i & ":L" & i).SpecialCells(xlCellTypeVisible)

"Range("A" & i & ":L" & i)" <== burada hangi satır ve sütunların  olacağı belirtiliyor A ve L sütunları belirten sabitler, "i" ise satırları belirten değişken
mesela 4. satırdayken kodu çalıştırırsanız  ==> i=4 olur
"Range("A" & i & ":L" & i)" ==>"Range("A" & 4 & ":L" & 4)"  ==>"Range("A4:L4")"  
eğer K ve l olsun isterseniz ==>"Range("K" & i & ":L" & i)" 
Sadece K isterseniz         ==> "Range("K" & i)"  yazmanız yeterli
_____________________________________________________________
.HTMLBody kısmını da aşağıdaki kodla değiştirmelisiniz

        .HTMLBody = "Sayın İlgililer" & vbNewLine & _

                    "IT ile ilgili yeni oluşturulan iş emrini aşağıda görebilirsiniz." & _

                     vbNewLine & vbNewLine & "İyi Çalışmalar" & vbNewLine & vbNewLine & _

                     RangetoHTML(rng)