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

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

rDB.Offset(0, 5).Resize(,11).Value = rV.Offset(10, 2).Resize(11).Value

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.

Sub AddToDB()
    Dim rDB As Range
                       Set rDB = Sheets("DB").Cells(Sheets("DB").Rows.Count, 2).End(xlUp)(2)
    Application.ScreenUpdating = False

    With Sheets("Valuation")
                            rDB.Value = .[C4].Value
                      rDB(1, 2).Value = rDB(1, 2).Value
                      rDB(1, 5).Value = Date
         rDB(1, 6).Resize(, 11).Value = Application.Transpose(.[E14:E24].Value)

        rDB(1, 17).Resize(, 10).Value = Array(.[E35].Value, .[E31].Value, .[E34].Value, _
                                              .[E36].Value, .[X8].Value, .[X11].Value, _
                                .[X18].Value, .[X20].Value, .[X26].Value, .[X29].Value)
    End With
                       Set rDB = Nothing
    Application.ScreenUpdating = True
End Sub