Как добавить текст к уже существующему тексту в ячейке?

---

я пытался добавить текст с уже существующим текстом в ячейке.но мой приведенный ниже код заменяет текст. пожалуйста, помогите мне, я новичок в vba.что я должен сделать, чтобы добавить текст,какую команду я должен использовать?

Что я уже пробовал:

Sub micro1()

   lr = ThisWorkbook.Worksheets("sheet3").Cells(Rows.Count, "A").End(xlUp).Row
   For i = 2 To lr
      a = ThisWorkbook.Worksheets("sheet3").Cells(2, 1)
      a = a + 3
      ThisWorkbook.Worksheets(a).Activate
      lr1 = ThisWorkbook.Worksheets(a).Cells(Rows.Count, "B").End(xlUp).Row
      For j = 2 To lr1
         nm = ThisWorkbook.Worksheets(4).Cells(j, 2)
         If nm = "General Ward" Then
            ThisWorkbook.Worksheets(3).Cells(2, 6).Value = ThisWorkbook.Worksheets(4).Cells(j, 3).Value
         End If
      Next
   Next
End Sub

---