清除范围内的内容会清除整张纸的内容吗？

Question

我有一个宏，可以将一些数据复制到另一张纸上的表中，但是我希望它也可以在复制后从其单元格中清除原始数据。我在网上看了一下，发现.clearContents方法似乎有效，但是当我用它清除一定范围的单元格时，例如Worksheets("sheet").range("B4:B10").clearContents，它也清除了该范围之外的数据。

这是我的整个宏：

Sub YesTrade()
    Dim lastRow As Long
    Dim currentDate As String

    currentDate = Date
    lastRow = Worksheets("Trades").Cells(Rows.Count, 1).End(xlUp).Row
    Worksheets("Trades").Cells(lastRow + 1, 1).Value = Date

    Worksheets("Calculator").Range("B4").Copy Worksheets("Trades").Cells(lastRow + 1, 2)
    Worksheets("Calculator").Range("B5").Copy Worksheets("Trades").Cells(lastRow + 1, 3)

    Dim f5 As Double
    Dim f7 As Double
    f5 = Worksheets("Calculator").Range("F24").Value
    f7 = Worksheets("Calculator").Range("F17").Value
    Worksheets("Trades").Cells(lastRow + 1, 5).Value = f5
    Worksheets("Trades").Cells(lastRow + 1, 7).Value = f7

    Worksheets("Calculator").Range("B4:B10").ClearContents

End Sub

最后一行用于清除单元格B4至B10中的数据，但是它清除了整个B列和F列中的所有内容。