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

You don't really need a macro for this.

1) On the ORDER sheet, go to Tools > Options and turn off [x] Zero Values

2) Formulas:

C24: =Estimate!Q1
D24: =Estimate!R1

F24: =Estimate!Q21
G24: =Estimate!R21

I24: =Estimate!Q41
J24: =Estimate!R41

L24: =Estimate!Q61
M24: =Estimate!R61

3) Now copy all those formulas down.

And in another cell you could put this formula to let you know when there is too much data:

=IF(Estimate!Q81<>"", "More Data", "")

If that takes care of your need, please click Thread Tools above your first post and mark this thread as SOLVED.