Marcro to copy range not entire column

Im trying to re write this macro to copy from R1 to R200 not entire column R. This what I have so far!!

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

LR = Sheets("Estimate").Range("R" & 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