' Copy and paste formula ranges as values to speed up the file processing. .Range("K3:N" & lastrow_Sheet1) = .Range("K3:N" & lastrow_Sheet1).Value .Range("P3:Q" & lastrow_Sheet1) = .Range("P3:Q" & lastrow_Sheet1).Value .Range("AI3:AM" & lastrow_Sheet1) = .Range("AI3:AM" & lastrow_Sheet1).Value .Range("AR3:AT" & lastrow_Sheet1) = .Range("AR3:AT" & lastrow_Sheet1).Value .Range("B3:B" & lastrow_Sheet1) = .Range("B3:B" & lastrow_Sheet1).Value