Объединить данные столбца в одну строку с разделителем - VB

Private Sub Str_Conc()
Dim sStr As String, i As Integer, iCols As Integer, iRows As Integer, sDelimiter As String
With Selection
  iCols = .Columns.Count
  iRows = .Rows.Count
  If (iCols > 1) And (iRows > 1) Then Exit Sub
  sDelimiter = InputBox("Разделитель:")
  If Len(sDelimiter) = 0 Then Exit Sub
  sStr = Trim(.Cells(1, 1).Value)
  If iRows > 1 Then
      For i = 2 To iRows
        If Len(.Cells(i, 1)) <> 0 Then
            sStr = sStr & sDelimiter & Trim(.Cells(i, 1).Value)
            .Cells(i, 1).Clear
        End If
      Next
  Else
    If Len(.Cells(i, 1)) <> 0 Then
      For i = 2 To iCols
        sStr = sStr & sDelimiter & Trim(.Cells(1, i).Value)
        .Cells(1, i).Clear
      Next
    End If
  End If
  .Cells(1, 1).Value = sStr
  .Cells(1, 1).Select
End With
End Sub