How do I get the row in openxml

See more:

VB

OpenXML

Hi,
i have been trying to write the data in to excel using the openXML and i am getting the row to write data in to it by using:

Dim lobjRefRow As Row = mobjActiveSheetData.Elements(Of Row).Where(Function(r) r.RowIndex.Value = puintRowIndex).FirstOrDefault()

this particular code is taking 7.5 minutes for writing 500 objects.Can i write it better because i observed the same code taking 4 minutes in another machine and all the prerequisites were same and infrastructure was same.How can i improve this piece of cdoe better? please suggest

What I have tried:

haven't tried anything as i am not getting any solution