SpeedUp/Alternative to Offset.Value = Offset.Value

Is there an alternative to speed up this procedure :

Sub AddToDB()

Dim rV As Range
Dim rDB As Range
Dim row As Integer

row = Sheets("DB").Cells(Rows.Count, 2).End(xlUp).row + 1
Set rDB = Sheets("DB").Cells(row, 2)
Set rV = Sheets("Valuation").Range("C4")

rDB.Value = rV.Value
rDB.Offset(0, 1).Value = rDB.Offset(0, 1).Value
rDB.Offset(0, 4) = Date

rDB.Offset(0, 5).Value = rV.Offset(10, 2).Value
rDB.Offset(0, 6).Value = rV.Offset(11, 2).Value
rDB.Offset(0, 7).Value = rV.Offset(12, 2).Value
rDB.Offset(0, 8).Value = rV.Offset(13, 2).Value
rDB.Offset(0, 9).Value = rV.Offset(14, 2).Value
rDB.Offset(0, 10).Value = rV.Offset(15, 2).Value
rDB.Offset(0, 11).Value = rV.Offset(16, 2).Value
rDB.Offset(0, 12).Value = rV.Offset(17, 2).Value
rDB.Offset(0, 13).Value = rV.Offset(18, 2).Value
rDB.Offset(0, 14).Value = rV.Offset(19, 2).Value
rDB.Offset(0, 15).Value = rV.Offset(20, 2).Value

rDB.Offset(0, 16).Value = rV.Offset(31, 2).Value
rDB.Offset(0, 17).Value = rV.Offset(27, 2).Value
rDB.Offset(0, 18).Value = rV.Offset(30, 2).Value
rDB.Offset(0, 19).Value = rV.Offset(32, 2).Value

rDB.Offset(0, 20).Value = rV.Offset(4, 21).Value
rDB.Offset(0, 21).Value = rV.Offset(7, 21).Value
rDB.Offset(0, 22).Value = rV.Offset(14, 21).Value
rDB.Offset(0, 23).Value = rV.Offset(16, 21).Value
rDB.Offset(0, 24).Value = rV.Offset(22, 21).Value
rDB.Offset(0, 25).Value = rV.Offset(25, 21).Value

End Sub

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

Thanks