SpeedUp/Alternative to Offset.Value = Offset.Value

Is there an alternative to speed up this procedure :

Please Login or Register  to view this content.

I am using it to add those values into database (another sheet), but it's very very slow.

Thanks

Thanks, it's much faster but this line doesn't work

Please Login or Register  to view this content.

Only the first value rV.Offset(10, 2) is copied into next 11 cells.

...
changed that line with copy (11 cells) /paste values transpose=true and it's still slow.

Please Login or Register  to view this content.