↓のマクロを実行するとエラー438になって動きません。原因を教えてくださいm(__)m

・DE3とDS3の値のいずれかの高い数値が1であれば、11行目〜12行目を削除
・DE3とDS3の値のいずれか高い数値が2であれば何もしない
・DE3とDS3の値のいずれか高い数値が3以上であれば、11行目〜12行目をコピーして
 DE3とDS3のいずれか高い数値−2回を、13行目以降に2行づつ貼り付ける

*DE3とDS3はいずれも1以上の整数です

Dim i As Integer
Dim cnt As Integer, a As Range

With ActiveSheet
i = .Max(Range("DE3", "DS3"))
Select Case i
Case Is = 1
.Rows("11:12").Delete
Case Is = 2
' なにもしない
Case Is >= 3
.Rows("11:12").Copy
Set a = .Range("A13") ' 貼り付け開始位置
For cnt = 3 To i '3以上のときはその値回数分貼り付けを繰り返す
a.PasteSpecial xlPasteAllMergingConditionalFormats '貼り付ける種類はお好みで
Set a = a.Offset(2, 0) ' 貼り付け先を2行下へ
Next cnt
End Select
End With
End Sub