Скопируйте и вставьте динамический диапазон и предотвратите повторение действия

Question

Ниже приведен код, который я получил сейчас.Я адаптирую его для работы, чтобы скопировать диапазон в новую рабочую таблицу в рабочей книге.Я хочу расширить макрос так, чтобы он удалял предыдущую копию / вставку при создании новой.Это ключ, потому что мои пользователи будут выполнять этот макрос несколько раз.

Это моя первая попытка настроить эту процедуру.Макрос будет выполняться плавно.

КОД:

Sub DynamicRange()
    Dim Start As Range, LastRow As Long, ws As Worksheet
    Set ws = Sheet3
    With ws
        Set Start = Range("A1")
        LastRow = ws.Cells(ws.Rows.Count, Start.Column).End(xlUp).Row
        ws.Range(Start, ws.Cells(LastRow, "C")).Select
        ws.Range(Start, ws.Cells(LastRow, "C")).Copy
        Set ws = ThisWorkbook.Sheets.Add(After:= _
        ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        ws.Name = "sheet3"
        ws.Range("A1").PasteSpecial xlPasteAll
     End With
    ws.Activate
End Sub

Answer 1

Возможно, добавьте еще одну переменную диапазона, которая определяет диапазон текущих данных. Тогда просто очистите этот диапазон, прежде чем продолжить с другим кодом?