将多个列合并到新行的部分IF语句，Excel VBA

Sub MergeColumnsToNewRow()
    Dim sourceRange As Range
    Dim targetRow As Range
    Dim i As Integer
    
    ' 设置源范围，这里假设要合并的列是A、B、C
    Set sourceRange = Range("A1:C1")
    
    ' 设置目标行，这里假设要合并到的新行是第2行
    Set targetRow = Range("A2")
    
    ' 遍历源范围的每个单元格
    For i = 1 To sourceRange.Columns.Count
        ' 判断单元格的值是否为空
        If Not IsEmpty(sourceRange.Cells(1, i)) Then
            ' 将单元格的值合并到目标行的下一个空单元格
            targetRow.End(xlToRight).Offset(0, 1).Value = sourceRange.Cells(1, i).Value
        End If
    Next i
End Sub