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)
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)
you can also do it as below:
Code:Worksheets("Sheet1").Range("H1").Resize(UBound(varFinalArr)).value = Application.Transpose(varFinalArr)
Bookmarks