Vba-excel - ループ内のセル範囲をコピーする

Question

セルを見つけようとしていて、その下の13行を選択しようとしていますので、選択範囲をコピーして転置して貼り付けます。

私のクエリは次のとおりです。まず、私はコピー＆ペーストで問題がない

If cell.Value Like "*OR-*" Then 
    Cells(ActiveCell, cell.Offset(0, 13)).Select 
    cell.Copy 
    cell.Offset(0, 1) 
    cell.Clear 

が、それは、私はそれが私を投げて欲しいものの選択である

Answer 1

、13行以下のコピーはCell.Offset(13,0)ないCell.Offset(0, 13)です（これは右に13列あります）。

If Cell.Value Like "*OR-*" Then 
    Range(Cell, Cell.Offset(13)).Copy 
    Cell.Offset(, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True 
    Cell.Clear 
End If