コピーと行と列の削除

Sub テスト()
 
  'シート名の変数宣言
  Dim シート名 As Worksheet
  Set ws = Worksheets("Sheet1")
 
  'B列をC列にコピーする
   Range("C2:C11").Value = Range("B2:B11").Value
   
   'D列をE列にコピーする
   Range("E2:E11").Value = Range("D2:D11").Value
   
   '11行目から14行目を削除する
    Range("A11:A14").EntireRow.Delete
 
   'B列とC列を削除する
    Range("B:C").Delete

End Sub