Add Blank Row Between Concatenated Values

[mosesthetank]

I have the below macro that concatenates values from 4 worksheets. The concatenated column is continuous with no spaces in between. I would like to have a single blank row between the values from each sheet.

Sub ConcatOutputFile()

'Concatenates Tabs to Column A in the Output File Tab

Dim rOut As Range
Dim wks As Worksheet
Dim i As Long

Set rOut = Worksheets("Output File").Cells(Rows.Count, "A").End(xlUp)

For Each wks In Worksheets(Array("Header", "Source", "To", "Target"))
With wks
For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
Set rOut = rOut(2)
rOut.Value = .Cells(i, "A").Value & " '" & _
.Cells(i, "B").Value & "'" & _
.Cells(i, "C").Value
Next i
End With
Next wks
End Sub

Thank you

[hafizimran]

Please Login or Register  to view this content.

[mosesthetank]

Thank you very much.