问如何从一行中的不同列获取值并将其写入单独行的单个单元格，而不使用excel vba覆盖。

EN

Sub test()

    Dim Names As Range
    Dim Age As Range
    Dim Health As Range
    Dim LastRow As Long
    Dim hlt As String
    Dim unhlt As String
    Dim hdl As String
    Dim uhdl As String
    
    LastRow = Worksheets("Sheet1").Cells(65536, "A").End(xlUp).Row
    Set Names = Worksheets("Sheet1").Range("A2:A" & LastRow)

    For Each Name In Names    
        Set Age = Worksheets("Sheet1").Range("B" & Name.Row)
        Set Health = Worksheets("Sheet1").Range("D" & Name.Row)
        
        If Age.Value = "Young" Or Age.Value = "Old" And Health.Value = "Sick" Then
            unhlt = unhlt & uhdl & Name.Value
            uhdl = ";"            
        End If
        If Age.Value = "Young" Or Age.Value = "Old" And Health.Value = "Not Sick" Then
             hlt = hlt & hdl & Name.Value
             hdl = ";"
        End If    
    Next
    
    Worksheets("Sheet1").Range("E9") = "Unhealthy: " & unhlt & Chr(10) & "Healthy: " & hlt

End Sub