From array to sheet

[abenitez77]

I run the code below to fill sheet with data from an array. It takes a long time to finish when the ubound(shtdata_new,1) is only 40 and ubound(shtdata_new,2) is only 44. Is there a faster way to do this?

 'Selecting first row on sheet
    Range("A1").Select
    
    'Copying data from array to worksheet
    For i = LBound(Shtdata_new, 1) To UBound(Shtdata_new, 1)
        For j = LBound(Shtdata_new, 2) To UBound(Shtdata_new, 2)
            ActiveCell.Offset(i, j).Value = Shtdata_new(i, j)
        Next j
    Next i

 

[DanteAmor]

Try this

Change your code for this line

Range("A1").Resize(UBound(Shtdata_new, 1), UBound(Shtdata_new, 2)).Value = Shtdata_new

 

[abenitez77]

Try this

Change your code for this line

Range("A1").Resize(UBound(Shtdata_new, 1), UBound(Shtdata_new, 2)).Value = Shtdata_new

Thanks! this worked like a charm!

 

[DanteAmor]

Thanks! this worked like a charm!

I'm glad to help you. Thanks for the feedback.