Hi,

Thanks for the suggestions LalitPandey87

I tested the code and adding the following line to insert the data sheet

Code:
Worksheets("Sheet1").Range("H1:H" & UBound(varFinalArr)) = Application.Transpose(varFinalArr)