Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r, i, c As Integer
Dim offsetValue() As Integer
i = 1: r = Selection.Row: c = Selection.Column
Cells(r, c).Select
        Do Until ActiveCell.Value = ""
                ReDim Preserve offsetValue(i) As Integer
                offsetValue(i) = ActiveCell.Value
                Selection.Offset(0, 1).Select
                i = i + 1
        Loop
Cells(10, c).Select: ActiveCell.Value = offsetValue(1)
         For i = 2 To UBound(offsetValue)
                        Selection.Offset(-1 * offsetValue(i), 1).Select
                        ActiveCell.Value = offsetValue(i)
         Next i
End Sub