copy cells automatically to next blank cells in another sheet'

Can someone tell me how to run a macro I have a worksheet named estimate which is the data and value and they are in rows Q and R I wish to run the macro to put the data in worksheet named order.

The date is start in C24 then skip across to I24 and the values to start at F24 and skip across to L24 not going past N24 and then jumping the this down to C25 etc etc.

I have put a macro in for the data but can't figure out how to do the value? and maybe join the macro's together.

Can anybody help

Sub MoveEstimate_to_Order()
Dim i As Long
Dim LR As Long
Dim MyCol As Integer
Dim MyRow As Integer

LR = Sheets("Estimate").Range("Q" & Rows.Count).End(xlUp).row
MyCol = 6
MyRow = 24
    For i = 1 To LR
        If Sheets("Estimate").Range("R" & i).Value <> "" Then
            Sheets("Order").Cells(MyRow, MyCol).Value = Sheets("Estimate").Range("R" & i).Value
            MyCol = MyCol + 2
                If MyCol = 14 Then
                    MyCol = 2
                    MyRow = MyRow + 1
                End If
            If MyRow = 44 Then
                MsgBox "You have ran out of room.  Some entries were not copied"
                Exit For
            End If
        End If
    Next i
End Sub

This is what I have so far but if you run the macro it is not working properly.
test1.xls