EXCEL VBA複製貼上的問題

各位高手大家好,我是EXCEL VBA的新手,我想將"工作表1"的資料複製到"工作表2"可是一直都有問題不知道那寫錯了,貼上時會跳一行並會覆蓋掉貼上的資料,可以幫忙解答嗎?或是有更好的寫法請不吝賜教!謝謝!
VBA如下:
Sub found()
Dim a, i As Integer
Dim b, m As Integer
Dim c As String
Dim d As String
c = "工作表1"
d = "工作表2"
For a = 3 To 6
For b = 2 To 5
a = a + 1
b = b + 1
i = a
m = b
MsgBox (Worksheets(c).Range("E" & i))
Worksheets(c).Range("E" & i).Copy
Worksheets(d).Range("B" & m).PasteSpecial Paste:=xlPasteValues
MsgBox (Worksheets(d).Range("B" & m))
Next
Next
End Sub