如何把下面的代码，把需要复制 的内容改成放在sheets2工作表中，谢谢！

断.点

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim r&
   If Intersect(Target, Range("a31:a55" & [b65536].End(3).Row)) Is Nothing Then Exit Sub
   r = Target.Row
   If Len(Target) Then
      MsgBox "已录入!"
   Else
      Cells(r, 1) = "已录入"
      Sheets(Cells(r, 2).Value).[a65536].End(3).Offset(1).Resize(1, 20) = Cells(r, 4).Resize(2, 20).Value
   End If
End Sub

suntao2000

Sheets(Cells(r, 2).Value).[a65536].End(3).Offset(1).Resize(1, 20) = Sheet2.Cells(r, 4).Resize(2, 20).Value